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Abstract 

Highly  excited  vibrational  levels  of  Ij  (X)  are  thought  to  play  an  important  role  in 
the  mechanism  of  iodine  dissociation  in  the  chemical  oxygen  iodine  laser.  It  has  been 

proposed  that  Ij  is  dissociated  in  the  laser  with  processes  such  as 

l2(X;v"=0)  +  M*  ^  I2  (X;v">20)  +  M 
l2(X;v">20)  +  M*  ^  +M 

l2(A^;v">20)  +  M*  ^  21  +M 

where  M*  is  or  O^^A),  and  M  is  O/I)  or  IC'Pj/J.  In  the  chain  branching 
mechanism,  initiation  would  involve  near-resonant  E-V  transfer  populating  vibrational 
levels  around  v''=40.  Consequently,  the  relaxation  dynamics  of  these  levels  are  of  interest 
as  they  may  control  the  efficiency  of  the  laser. 

I  have  examined  the  nascent  state  distribution  of  the  product  using  pulsed 

laser  photolysis  and  probe  techniques.  In  these  experiments,  If  P^z)  was  generated  by 
496  nm  photolysis  of  Ij.  Within  several  microseconds  after  the  photolysis  laser, 
I2(A;-23<v"<47)  is  detected  by  laser  excitation  of  the  D-X  transition  at  wavelengths  in 
the  280  -  300  nm  range.  Rotationally-resolved  spectra  under  single  collision  conditions 
were  recorded  for  the  D-X  transitions  4<v'<12  <r-  23<v"<47.  Analysis  of  the  data 
indicated  that  the  molecular  constants  for  the  D  state  did  not  extrapolate  to  the  v'<30 
levels  reliably.  In  order  to  improve  the  characterization  of  the  D  state,  a  least-squares 
analysis  generated  improved  spectroscopic  constants: 
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Table  I;  Dunham  Vibrational  Parameters  of  the  D(P^^)  Ion-Pair  state  of  Ij 

Yoo=  41026.166 
Yio=  95.11746327 
Y2o= -0.111495227 
Y3o=  -5.792874546x10-^ 

Y4o=  4.205281828x10-' 

Y5o= -1.408244378x10-' 

Y«,=  2.68736882x10-" 

Y7o= -2.3114805x10-'^ 


Vibrationally  excited  (X)  was  prepared  for  state-to-state  studies  of  the 

vibrational  and  rotational  collision  d3mamics.  Levels  v' -42,  38  and  23  were  prepared  by 
stimulated  emission  pumping  and  then  probed  by  laser  induced  fluorescence.The 
prepared  level,  and  the  collisionally  populated  levels  were  detected  by  laser  excitation  of 
the  D-X  system.  Relaxation  kinetics  were  determined  by  varying  the  delay  between  the 
dump  and  probe  laser  pulses.  Collisions  with  H2,  He,  Ar,  HjO,  DjO,  CI2,  Nj,  O2,  and  I2 
were  investigated.  Total  loss  rates  were  measured  for  all  collision  partners.  Rotational 
energy  transfer  rate  constants  were  determined  by  parametrization  of  experimental  data 
by  the  statistical  power  gap.  Vibrational  energy  transfer  (Av=-1)  was  observed  and 
measured  for  many  of  the  collision  partners. 
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Chapter  I 
Introduction 


Collision  induced  measurements  of  rotational  energy  transfer  by  laser  induced 
fluorescence  are  nearing  almost  a  quarter  of  a  century  of  experimentation.  It  was  first 
applied  to  Na2  (B  ’tc)'  and  (B  and  has  since  measured  OH  (A  Na^C^ 

Li^  (A  '!),'  CdH  (A  KH  (A  'I),’  ZnH  (A  ^n),  *  CsH  (A  CaF  (A  and 
IF  (B  ^7c)."  The  more  recent  developments  of  various  pump-probe  techniques  have  been 
useful  for  investigating  rotational  energy  transfer  of  inelastic  collisions  within 
vibrationally  excited  levels  of  the  electronic  ground  state  for  HF  [v=l,’^  v=2  (Ref  13)], 
NO  (v=2),'^  (v=l),''  HD  (v=l),’'  HCl  (v=l),"  N2(v=l)''and  CN(v=2).''' 

Pump-probe  techniques  have  also  been  used  to  examine  rotational  energy  transfer  in  the 

electronically  excited  states  for  NO  (Af^  and  IF  (B^n).^^ 

Although  the  field  of  molecular  dynamics  is  well  developed,  there  are  very  few 
studies  of  energy  transfer  for  molecules  with  chemically  significant  internal  energy.  The 
principal  reason  for  the  lack  of  state-to-state  experimental  investigations  into  high  levels 
of  vibrational  excitation  in  the  ground  electronic  state  has  been  the  difficulty  in  the 
state-selective  preparation  and  detection  of  the  energetic  species.  In  order  to  selectively 
prepare  these  energetic  molecules,  spectroscopic  techniques  are  now  being  employed  as 
a  means  of  preparing  highly  vibrationally  excited  species  as  well  as  investigating  them. 
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Surprisingly,  there  are  only  four  examples  of  polyatomics  with  internal  energies  in  excess 
of  5000  cm  '  whose  state-to-state  collisional  relaxations  has  been  experimentally 
investigated.^^  Only  experiments  with  C2H2,^  HCN  and  NHj  have  directly 

probed  for  energy  redistribution.  Even  more  surprising  than  the  scarcity  of  polyatomic 
data,  is  the  scarcity  of  state  resolved  measurements  for  vibrationally  energetic  diatomic 
species.  Besides  the  vibrationally  excited  \  studies  presented  herein,  only  experiments 
with  NO  and  O2  have  measured  the  energy  transfer  of  highly 

vibrationally  excited  molecules  in  their  electronic  ground  state. 

A  key  motivation  for  studying  the  energy  transfer  of  these  highly  vibrationally 
excited  levels  of  I2(A!)  is  because  l^iX,  v">20)  levels  are  thought  to  play  an  important 
role  in  the  mechanism  of  iodine  dissociation  in  the  chemically-pumped  oxygen  iodine 
laser.  In  addition,  the  collisional  dynamics  oiljiB)  have  been  studied  extensively,  and 
used  in  the  development  of  theoretical  models  of  energy  transfer.  However,  there  is  very 
little  information  on  the  collisional  dynamics  of  I2  (A).  Comparisons  can  yield  insights 
concerning  the  influence  of  the  electronic  state  on  the  outcome  of  an  inelastic  collision. 
With  the  advent  of  stimulated  emission  pumping  for  state  preparation  in  combination 
with  laser  induced  fluorescence  for  detection,  it  is  feasible  to  populate  and  probe 
individual  rovibrational  levels  in  the  ground  state.  Stimulated  emission  pumping  is  a 
folded  variant  of  optical-optical  double  resonance  and  has  the  same  advantage  of 
combining  rotational  state  selection  rules  for  two  resonant  transitions,  thereby 
eliminating  rotational  congestion.  This  dissertation  examines  the  state-to-state 
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relaxation  of  highly  vibrationally  excited  selectively  prepared  by  the  technique  of 
stimulated  emission  pumping.  Section  §1.1  of  this  introduction  will  provide  an  overview 
of  the  02('A)  +  Ij  system  and  the  role  of  vibrationally  excited  ^iX).  Section  §1.2 
describes  the  chemical-pumped  oxygen  iodine  laser  while  the  energy  levels  of  molecular 
and  atomic  iodine  are  presented  in  Section  §1.3.  Appendix  E  provides  a  general 
description  of  atomic  and  molecular  term  symbols. 

§1.1  Overview  of  the  Developments  of  Ij  +  02(‘ A) 

In  1966,  S.J.  Arnold,  N.  Finlayson  and  E.  A.  Ogryzlo  were  the  first  to  report  a 
"bright-yellow  glow"  when  I2  was  introduced  into  a  stream  of  02(’A)  molecules.^^  In 
addition  to  the  yellow  glow  associated  with  transitions  in  I2,  they  correctly 

identified  atomic  iodine's  IfPi/z^^Pj/z)  transition  at  13200  A.  Iodine  dissociation  was 
h5q}othetically  proposed  as  a  reaction  with  02('2)  or  alternatively,  as  multiple  collisions 
with  02('A)  "if  I2  possesses  a  low-lying  state  (<23  kcal  above  ground)."  The 
mechanisms  suggested  by  Arnold  et  al.  for  I2  dissociation  were 

I2 +  02(’S)  or  2[02('A)] -^21  +  02 

Since  02('2)  concentration  was  observed  as  increasing  10  times  its  steady-state  value 
upon  addition  of  iodine  into  the  02(*A)  flow,  they  explained  iodine  atoms  as  catalyzing 
the  formation  of  02('2)  in  the  following  chain  processes; 

O20A)  +  O2CA)^O2e2)  +  O2('I) 
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0,('A)  + )->  0/Z)  +  ifP,,,) 

0,CA)  +  If  P.^  )  0,f  I)  +  !(%,) 

In  a  series  of  papers  R.  G.  Derwent  and  B.  A.  Thrush  examined  the  excitation  of 
iodine  by  02('A).  They  proposed  the  formation  of  atomic  iodine  was  accounted  for  by 
the  direct  excitation  of  Ij  by  02(’2).They  proposed 

02(‘l)  +  l2->02fl)+l2(AXu) 

^02fS)+2I 

02('A)  +  l2(A^7ti„  )  ^  O2CI)  +  I^CB^lIou)- 

They  discounted  the  alternative  mechanism  of 

202('A)  +  l2-^  202^1) +  21 

-^20,(%  +  UA\J 

Their  rationale  for  discounting  the  alternative  mechanism  was  based  upon  the  addition  of 
water  vapor  to  the  l2+02('A)  system  which  effectively  quenched  OjC’I)  and  the  emission, 
as  well  as  other  quantitative  considerations.  Once  formed,  atomic  iodine  is  subsequently 
excited  by  02('A)  with  near-resonant  (quantum  defect  -279  cm  ’ )  energy  transfer 
where  resonant  energy  transfer  is  characterized  by  collisions  between  species  in  which 
transfer  of  energy  occurs  from  the  metastable  to  the  unexcited  species. 

As  a  result  of  this  efficient  resonant  energy  transfer,  Derwent  and  Thrush^ 
reported  that  the  atomic  iodine  line  at  1.315  pm  would  exhibit  laser  action  when  the 
concentration  of  02(’A)  was  significantly  greater  than  10%.  In  1978,  researchers  at  the 
Air  Force  Weapons  Laboratory,  W.  E.  McDermott,  N.  R.  Pchelkin,  D.  J.  Benard,  and  R. 
R.  Bousek^^  were  the  first  to  demonstrate  an  electronic  transfer  laser  utilizing  the  atomic 
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iodine  transition  ICP1/2)  ICP3/2 )  +  hv  pumped  by  02('A).  The  Chemical  Oxygen 
Iodine  Laser  (COIL)  is  the  shortest  wavelength  chemical  laser  and  is  the  only  chemical 
laser  which  operates  on  an  electronic  rather  than  rotational  or  variational  transitions 
(e.g.  CO2  and  HF/DF  lasers)^®.  Figure  1.1  shows  the  interrelationships  between  the 
electronic  energy  levels  of  oxygen,  and  atomic  and  molecular  iodine. 

While  the  prediction  of  laser  action  by  Derwent  and  Thrush^^  for  the  IJ  OjQ IS,) 
chemical  system  was  realized,  the  mechanism  for  I2  dissociation  by  02('2)  became 
doubtful.  Aviles  et  al.”  reported  that  the  total  02(^1)  removal  rate  coefficient  was  ten 
times  smaller  than  the  value  required  by  Derwent  and  Thrush  to  model  their  results. 
Muller  et  al.^*  substantiated  the  finding  that  the  rate  of  dissociation  of  I2  by  02(’2)  was 
too  small.  Furthermore,  spectroscopic  studies  of  the  W  Tellinghuisen^^  placed  the 
potential  minimum  at  10047  cm  '.  As  seen  in  Figure  1.1,  the  ^iA')  state  is  energetically 
too  high  to  be  accessed  by  a  single  collision  with  an  02('A)  molecule,  thereby  eliminating 
this  possibility  of  the  l2(A')  state  as  an  intermediate  storage  state. 

A  chain  reaction  model  for  iodine  dissociation  was  proposed  by  R.F.  Heidner  III, 
C.  E.  Gardner,  G.  I.  Segal,  and  T.  M.  El-Sayed.'"'  Their  analysis  was  derived  fi'om  their 
investigations  with  a  discharge  flow-tube  in  which  they  monitored  02('A),  02('2), 
I(^Pi/2),  l2(A^^,u )  and  by  optical  emission  spectroscopy.  Although  vibrationally 

excited  12(A)  was  not  directly  observed  in  the  flow  tube  experiment,  the  participation  of 
vibrationally  excited  I2  was  inferred  from  kinetic  models.'"  In  fact,  Heidner  et  al. 
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Energy  (cni^)  x  10'^ 


Figure  1.1:  Electronic  Energy  Levels  in  the  Chemical  Oxygen  Iodine  Laser 
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postulated  two  kinetic  models  with  the  intermediate  state  (l2^ )  as  either  I2(A')  or 
vibrationally  excited  I2  (X).  The  most  important  of  these  processes  for  iodine 
dissociation  are 

O2(’I)  +  l2(J10^O2CE)  +  2I 
020A)  + 12(A) ->02^1)  +  !/ 

02(’A)  + 12^  02f  I)  +  21 

I(^P,^)  +  l2(A)^l2^  +  I 

G.E.  Hall,  W.J.  Marinelli,  and  P.L.  Houston''^  observed  the  electronic  to  vibrational 
(E^V)  energy  transfer  from  I(^Pi;2)  to  I2  and  proposed  a  chain-branching  mechanism 

ieP„2)  +  12(A)  ^I2(20<v<40)  +  I(%2) 

I2  (20<v<40)  +  02(' A)^  2I(^P3/2  )  +  O2 
02('A)  + 1(^3/2)  02(^S)  +  l(%a) 

They  followed  the  time  evolution  of  the  I2  vibrational  population  distribution  for  v"=29 
and  40,  and  measured  the  rate  constants  for  deactivation  of  I2  (A,  v' -40)  by  He,  Ar,  and 
I2.  Using  the  rate  constants  measured  by  Hall  et  al.,  D.  David,  V.  Joly  and  A.  Fausse'^^ 
modeled  I2  dissociation  in  the  presence  of  02('A)  using  high  vibrational  levels  of  I2  as  an 
intermediate  state,  and  by  assuming  the  rate  constants  scaled  linearly  with  v  and  v-1. 

The  presence  of  vibrationally  excited  iodine  was  confirmed  by  M.H.  van  Benthem  and 
S.  J.  Davis'^  while  observing  I2  +  02('A)  by  in  a  flow  tube  reactor.  More  recently,  A.J. 


8 


Bouvier,  R.  Bads,  A.  Bouvier,  D.  Cemy,  S.  Churassy,  P.  Crozet  and  M.  Nota'*^  have 
proposed  channels  for  dissociation  involving  the  A  and  A'  states  of  I2.  They  suggested 
either  a  two-step  or  three-step  dissociation  process,  with  both  mechanisms  conditional 
upon  the  degree  of  relaxation  of  the  vibrationally  excited  I2  (A).  Figure  1.2  illustrates 
the  two-step  or  three  step  dissociation  process.  In  the  two-step  mechanism  with  little 
vibrational  relaxation,  vibrationally  excited  I2  can  be  dissociated  by  excitation  directly  to 
the  repulsive  lu  state.  However,  if  vibrational  relaxation  becomes  dominant,  then  the^ 
or  A'  states  are  populated  before  dissociation  occurs  through  lu.  Relaxation  of  the 
vibrationally  excited  l^iX)  forces  higher  consumption  of  02(’A)  and  requires  a  multi-step 
process.  Indeed,  the  two-step,  three-step,  and  multi-step  dissociation  mechanisms  help 
explain  the  observation  of  2^<6  where  n  is  the  number  of  02(’ A)  required  to  dissociate 
an  I2  molecule.  In  fact,  one  of  the  most  critical  issues  facing  COIL  modeling  is  the 
parametric  dependence  of  n. 

Predicting  the  dissociation  of  molecular  iodine  has  been  identified  as  the  largest 
source  of  error  in  COIL  performance  modeling.  Modeling  the  performance  of  the  laser 
over  predicts  performance  and  under  predicts  I2  dissociation.^®  Scaling  of  the  COIL 
device  to  higher  power  has  become  increasingly  more  difficult  due  to  inadequate 
knowledge  of  the  mechanism  for  iodine  dissociation  since  the  dissociation  efficiency 
greatly  influences  device  geometry  and  operating  conditions.  Experimental  and  modeling 
data  have  indicated  that  some  of  the  performance  prediction  problems  may  be  due  to  a 
coupled  mixing  and  dissociation  process.  Imperfect  mixing  of  iodine  and  oxygen  results 


^(lu) 

Dissociation  (through  lu) 

"a 

v"=33-40 

^  %a  +  Xa 

^(o;) 

ii 

1 

a)  Two-Step  Process 


Figure  1.2:  Illustration  of  the  Proposed  a)Two-Step  and  b)Three- 
Step  Dissociation  Process  of  Iodine  by  Oj  (^A) 

[  Reference  45]. 
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in  initial  regions  of  high  iodine  concentration  leading  to  faster  dissociation  rates.  In 
addition,  estimated  and  inaccurate  rate  constants  used  in  the  kinetic  model  may 
contribute  significantly  to  the  errors  in  the  prediction  of  laser  performance. 

§1.2  Chemical  Oxygen  Iodine  Laser  (COIL) 

The  COIL  operates  on  the  hyperfine  components  of  the  5^P,q  — >  transition 

in  atomic  iodine.  A  schematic  diagram  of  the  COIL  device  is  shown  in  Figure  1.3. 
Singlet  delta  oxygen,  OjC'A),  is  produced  by  a  two  phase  chemical  reaction  of  chlorine, 
hydrogen  peroxide ,  and  potassium  hydroxide.  Often  referred  to  as  basic  hydrogen 
peroxide  (BHP)  due  to  its  high  pH,  the  typical  mix  is  (by  weight)  25%  H2O2,  25%  KOH, 
and  50%  H2O,  and  the  overall  stoichiometry  of  the  generator  is  given  by 
CI2  +  H2O2  +  2KOH  2KC1  +  2H2O  +  02(’A) 

The  reaction  responsible  for  singlet  oxygen  generation  is^* 

CI2  +  2HO2  2Cr  +  H2O2  +  02(’A) 

This  chemical  reaction  is  exothermic  (27  Kcal/mol)  with  yields  approaching  100% 
02('A).  Due  to  the  exothermic  nature  of  this  reaction,  cooling  is  required  to  remove  the 
heat  of  mixing  and  minimize  the  H2O/  H2O2  vapor  pressure.  Singlet  delta  oxygen's  long 
radiative  lifetime  of  45  min.  and  relative  immunity  to  quenching  make  it  an  almost  ideal 
energy  transfer  agent.  Mass  transport  losses  of  02('A)  to  the  laser  cavity  are  dominated 
by  energy  pooling  where 


02('A)  +  O2CA)  ->  02('I)+02(^I) 
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In  the  COIL  device,  helium  serves  as  a  carrier  gas  for  molecular  iodine  which  is 
injected  into  the  02('A)  flow  where  it  dissociates  via  a  multi-step  mechanism  as 
discussed  in  Section  §1.1.  I(^P,;2)  excited  atoms  are  generated  through  the 
sequential  dissociation  and  pumping  of  Ij  by  OjC’A).  The  equilibrium  expression  for  the 
pumping  mechanism  is 

k,[02('A)][lfP3,2)]=kJ02(^I)][lfP.,2)] 

[02<'A)][I2P3,21 

The  lasing  threshold  is  calculated  at  zero  gain.  The  gain  equation  is 

yo  =  A2,£ig(o)(N2-tN,) 

where  is  the  threshold  gain,  Aj,  is  the  Einstein  Coefficient  for  spontaneous  emission, 

g(u)  is  the  lineshape,  N  is  the  population,  g  is  the  degeneracy,  and  n  is  the  index  of 

refraction.  The  ratio  of  degeneracies  of  the  two  atomic  iodine  states  is 

g2  _  g[I(^Pi/2)]  _  2 
gi  “  g[I(2P3/2)]  ”  4 

Because  the  degeneracy  ratio  to  is  2,  only  33%  of  the  iodine  atoms  are 
required  in  the  state  for  a  population  inversion  to  exist.  At  gain  equal  to  zero,  the 

[I(^Pl/2)]  ^  1 

[I(^P3/2)]  2 


threshold  condition  is 
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VO  =  o([I='Pm]-i[PP3/2])=0 

Substituting  [02('A)]+  [02(^I)]=[02]tot  into  the  equilibrium  expression  and  substituting, 

the  amount  of  O^C^)  required  is 

^  ^  [02(^I)][I^Pi/2]  ^  [02]tot-[02(^A)]  1 

[02(‘A)][l2p3/2]  [02(^A)]  2 

rearranging,  the  mole  fraction  is  calculated"*^ 

X  =  5^.  Keq  =  0.75  exp[^] 

At  298°K,  a  yield  of  15%  02('A)  is  required  for  threshold.  With  sufficient  02(’A) 
production,  continuous-wave  laser  output  in  the  COIL  is  sustained  at  1 .3 15  pm  by 
stimulated  emission  on  the  I(5^P,;2)  to  magnetic  dipole  transition 

ieP,/2)-^lCP3/2)  +  hv(7603  cm-') 

Table  1. 1"*®  lists  some  of  the  processes  and  their  respective  rate  constants. 

§1.3  Molecular  and  Atomic  Iodine  Energy  Levels 

Without  a  doubt,  the  spectroscopy  of  molecular  iodine  is  the  most  extensively 
studied  and  understood  of  all  the  halogens.  Initially,  interest  in  the  spectroscopy  of  the 
iodine  molecule  was  a  result  of  its  relatively  intense  absorption  of  light  in  the  visible  and 
UV  regions  of  the  electromagnetic  spectrum.  Fluorescence  of  I2  B-X  was  first  recorded 
in  the  early  1900s  by  Franck  and  Wood"*^  Later,  McLennan"*®  described  the  diffuse 
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Liquid  Chemistry 


HO  2  +  CI2  ^  HOOCl  +  Cl , 

HO  2  +  HOOCl  ->  ClOO  +  H2O2, 

cloo-  ^  cr  +  02('a), 

02('a)  ->  o,C^), 


8.5  xlO’°  cm^  /mole  s 

00 

10^  ->  00  cm^  /moles 
1/1.8  jxs 


Gas  Phase  Kinetics  [Rates 


O20i:)  +  i2->O2Ci)  +  i2, 

02('I)  +  I2-^02('I)  +  2I, 

02('I)  +  He^02(‘A)  +  He, 

02('I)  +  H2O  02(‘A)  +  H2O, 

02('A)  +  0,c^)  +0,C^), 

o,CA) + o,CA)  o,ei)  +o,ezx 

0,CA)  +  0,CA)  02('S)  +02(^2), 

O20A)  +  l2->O2Cl)  +  l3*, 

02('A)  +  l2*-^02Cl)  +  2I, 

02('A)  +  I->02CI)  +  I*, 

02(‘A)  +  I^02CI)  +  I, 

02('A)  +  H20-»02CI)  +  H20, 
020A)  +  I*^02(‘I)  +  I, 

02('A)  +  wall  ->  02^1)  +  wall, 

02ei)  +  I*->02('A)  +  I, 

02C2)  +  I*^02CI)  +  I, 

02Cs)  +  i2*->02Ci:)  +  i„ 

I2  + 1*  I2*  + 1, 

I2*+He  — >  I2  +  He, 
l2*  +  H20  ^I2  +  H20, 

I2  + 1*  ^  I2*  + 1, 

CI  +  I2  ^I  +  ICl, 


in  cm^  /molecule  sec] 

1.6x  10-" 

4.0  X  10’^ 

1.0  X  10'" 

6.0  X  lO  '" 

1.6  X  10-’* 

1.8  X  10-’’ 

2.5  X  10-” 

7.0  X  10’^ 

3.0x10'" 

7.8  X  10-" 

1.0  X  10-'^ 

4.0  X  10-'* 

1.0  xlO’^ 

2.0  X  10'^ 

1.028  X  I0  '°*exp(-401.4/T) 

3.5  X  10  '" 

5.0  X  10" 

3.5  X  10-" 

4.0x10" 

3.0  X  lO" 

3.5x10'" 

2.0  X  10'° 


Overall 


n  02('A)  + 12  ->  n  O2CI)  +  21,  n  ~  2  to  5 


Table  1.1;  Limited  Listing  of  Kinetic  Processes  with  Rate  Constants 
in  the  COIL  Device 
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structure  now  associated  with  the  bound-free  fluorescence  of  the  D-X  system. 
Subsequent  work  revealed  many  intriguing  phenomena,  such  as  the  changes  from 
continuous  to  banded  emission  spectra  upon  the  addition  of  inert  gases,  and  the 
quenching  of  visible  fluorescence  from  the  B  state  by  application  of  a  magnetic  field. 

This  behavior  has  focused  considerable  interest  resulting  in  an  unusually  large  amount  of 
detailed  knowledge,  both  experimental  and  theoretical. 

Mulliken'^^  presented  one  of  the  more  enlightened  theoretical  studies  of  molecular 
iodine  and  he  correctly  predicted  the  lowest  excited  electronic  state.  Using  a  basis  of 
electronic  configurations  in  which  ten  valence  electrons  were  distributed  among  the  four 
highest  molecular  orbitals  ,  Mulliken  accounted  for  the  sub-Rydberg  states  of 

Ij.  The  violet  color  of  Ij  arises  as  a  result  of  the  excitation  of  an  electron  from  the 
highest  occupied  MO  (antibonding  level)  into  the  lowest  unoccupied  MO 
(antibonding  o*  level).  The  lower  excited  states  may  be  arranged  in  three  groups 
according  to  whether  a  state  correlates  at  dissociation  with  two  unexcited  atoms  (5p’ 

^Pj)  with  j=V2  or  % ,  or  one  unexcited  and  one  excited  atom,  I  + 1*  (e.g.  5p''6s) ,  or  two 
oppositely  charged  ions,  U +1.  Generally,  members  of  these  three  groups  are  referred  to 
as  valence,  Rydberg,  or  ion-pair  states,  respectively.^®  The  A\  A,  and  B  are  the  2„,  1„, 
and  spin  orbit  components  of  the  state.  The  ground  state  is  assigned 

unambiguously  to  the  (O^g)  state. 

The  ground  state  iodine  atom  has  a  5p^  valence  electron  structure  which  gives 
rise  to  Og,  7r„,  Tig*,  and  o*  molecular  orbitals  (MO).  Spin-orbit  coupling  splits  the  5p^ 
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configuration  into  and  ^Pjy2  excited  states.  Both  of  these  levels  have  the  same  orbital 
angular  momentum  and  parity.  According  to  the  electronic-dipole  selection  rules, 
electronic-dipole  transitions  between  the  two  groups  are  totally  forbidden  (but  are 
magnetic-dipole  allowed).  In  fact,  the  strength  of  the  magnetic  dipole  transition  is 
surprising  since  magnetic  dipole  transitions  are  normally  6-8  times  weaker  than  the 
corresponding  electronic-dipole  transition. 

Atomic  nuclei  are  effected  by  the  fields  resulting  from  electronic  motion  and 
spin.  There  is  a  magnetic  dipole  interaction  between  the  electron  and  the  nucleus,  and 
the  magnetic  dipole  contributes  to  atomic  iodine's  nuclear  spin  (I=%).  The  nuclear 
alignment  energy  gives  a  very  small  (hyperfine)  splitting  to  atonuc  energy  levels.  Figure 
1.4  [note  scale  change  on  the  energy  axis]  shows  the  atomic  energy  levels  of  iodine  and 
the  hyperfine  splitting.  Each  of  these  levels  have  a  Zeeman  splittable  degeneracy  given 
by  gp=2F+l.  The  relatively  small  spacing  of  the  hyperfine  levels  allows  rapid 

mixing  whereas  the  hyperfine  levels  are  likely  to  be  mixed  only  by  other  iodine 
atoms.^'  Laser  action  has  been  observed  on  four  of  the  hyperfine  components”  for  the 
transitions  (in  order  of  intensity)  3^4  >  2^2  >  3— >2  >  2-^3.  The  gain  of  the 
F=3^F=4  transition  can  be  calculated  assuming  the  population  in  each  hyperfine  level  is 

distributed  in  accordance  with  its  statistical  weight. 

[I(^P,^  ,  F=3)]=7,,  {[I(^,^  ,F=3)]  +  [I(^P,„F=2)]} 

N,=  7,3fP,^ 

[1(^3^,  F=4)H/,,  {[1(^3^)]} 

N,  =7,,  1^3^ 
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The  small  signal  gain  is 

yo  =  (A2l)£T(T^[I^P,d-|s[I^P3/2]) 


evaluating^' 

yo  =  7.5xl0-'*([l2p,/2]  -  ip'Psc]) 

The  small  signal  gain  is  not  a  strength  of  the  COIL  device.  But  gain  and  power  output 
have  been  scaled  substantially  since  the  first  demonstration  at  the  Air  Force  Weapons 
Laboratory.  Small  signal  gain  of  1.2%  cm  '  has  been  demonstrated  in  a  supersonic 
device.  The  unsaturated  gain  coefficient  previously  described  is  the  gain  coefficient 
which  is  measured  with  a  low  intensity  probe  beam  passing  through  the  laser  cavity 
without  mirrors.  The  actual  gain  coefficient  measuring  during  laser  operation  is  less  than 
the  unsaturated  gain  coefficient.  This  is  a  result  of  the  rate  of  stimulated  emission  which 
depletes  the  excited  atoms  until  balanced  by  the  gain  saturation. 

While  the  gain  is  small,  the  device  has  a  high  efficiency.  The  efficiency  of  a  laser 
is  determined  by  taking  the  ratio  of  the  output  power  to  the  input  pumping  power.  In 
fact,  a  COIL  with  a  maximum  chemical  efficiency  approaching  40%  [comparable  with 
the  operating  costs  of  a  commercial  Nd.YAG  laser  system]  was  demonstrated  by 
K.Shimizu,  T.  Sawano,  T.  Tokuda,  S.  Yoshida  and  I.  Tanaka.^^ 
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Chapter  2 

Theoretical  Background 

Studies  of  the  inelastic  collision  dynamics  of  I2  have  had  a  long  and 

distinguished  history’"®.  Much  of  the  attention  paid  to  l2(5)  derives  from  the  relative  ease 
with  which  individual  rovibrational  levels  of  the  B  state  may  be  excited  and  detected.  As 
a  consequence  of  this  experimental  accessibility,  collisional  energy  transfer  data  for 
12(5)  have  been  widely  used  in  the  development  and  evaluation  of  theoretical  models  of 
inelastic  collisions'"^.  For  the  most  part,  these  theories  have  assumed  the  usual 
Bom-Oppenheimer  separation  of  the  electronic  and  nuclear  motions.  Models  of 
rotational  and  vibrational  energy  transfer  have  not  considered  the  influence  of  electronic 
state  mixings  induced  by  interactions  with  the  collision  partners.  However,  it  is  well 
known  that  quenching  of  l2(5)  is  caused  by  collision-induced  mixing  of  the  B  state  with 
the  nearby  repulsive  electronic  states*  ®.  Such  mixings  have  also  been  considered  in 
recent  discussions  of  the  dynamics  of  l2(5)-Ar  van  der  Waals  complexes’®"’^. 
Electronically  nonadiabatic  channels  may  cause  significant  deviations  from  the  inelastic 
collision  dynamics  predicted  using  adiabatic  models.  In  vibrational  energy  transfer, 
nonadiabatic  processes  may  enhance  the  cross  sections  for  single-  and  multiquantum 
transfer  events.  Burke  and  Klemperer’^  have  suggested  that  the  probabilities  for 
collision-induced  predissociation  of  I2  (B)  may  be  dependent  on  the  orientation  of  the 
collision  partners.  Should  this  be  the  case,  the  cross  sections  for  angular  momentum 
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changing  collisions  would  be  influenced  by  the  competition  between  quenching  and 
momentum  exchange.  These  considerations  imply  that  may  not  be  the  best 
prototype  for  testing  adiabatic  models  of  energy  transfer. 

As  there  is  a  substantial  energy  separation  between  l^iX)  and  the  first 
electronically  excited  state  [A'  ^n(2J  at  10042  cm•’]’^  the  ground  state  energy  transfer 
dynamics  will  not  be  significantly  influenced  by  electronic  state  mixings.  Hence,  energy 
transfer  data  for  \{X)  are  more  suitable  for  evaluating  adiabatic  models  than  those  for 
13(5).  Furthermore,  it  is  conceivable  that  comparisons  of  the  results  for  y^X)  and  yB) 
can  be  used  to  identify  nonadiabatic  effects  in  the  latter.  Interpretations  of  these 
comparisons  will  be  the  most  easily  reached  when  the  intermolecular  potential  energy 
surfaces  are  similar  for  and  I3(5)+M.  There  is  evidence  from  spectroscopic 

studies  of  the  binary  van  der  Waals  complexes''*  that  this  condition  is  satisfied  for  M=He 
and  Ar,  and  it  may  well  hold  for  several  other  inert  collision  partners.  From  a  practical 
standpoint,  the  ground  state  energy  transfer  dynamics  are  of  relevance  to  the  kinetics  of 
Ij  dissociation  and  recombination.  They  also  determine  the  performance  characteristics 
of  optically'^  and  chemically'®  '^  pumped  iodine  lasers. 

This  chapter  will  provide  basic  theoretical  background  useful  for  the  discussions 
in  this  dissertation.  Section  §2. 1  will  briefly  discuss  spectroscopy  while  Section  §2.2 
considers  thermal  and  nonradiative  distributions.  Section  §2.3  gives  an  overview  of 
scaling  and  fitting  laws  for  rotationally  inelastic  collisions. 
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§2. 1  Spectroscopy 

The  angular  momentum  of  a  diatomic  molecule  is  specified  by  the  quantum 
number,  J.  Electronic  transitions  of  diatomic  molecules  are  almost  always  accompanied 
by  changes  in  the  vibrational  and  rotational  eigenstates,  giving  rise  to  a  dense 
rovibrational  structure.  A  rovibrational  manifold  consists  of  a  series  of  vibrational  levels 
V,  for  which  the  energy  difference  (AE)  decreases  slightly  between  successive  levels,  and 
a  series  of  rotational  levels  J,  whose  energy  differences  (AE)  increase  linearly  with  each 
level.  The  wavelength  of  the  spectral  line  corresponds  to  the  energy  required  for  the 
transition.  Section  §2.1.1  will  discuss  the  rotational  structure  and  distribution.  Section 
§2.1.2  will  present  vibrational  distribution  and  Section  §2.1.3  will  discuss  some  aspects 
of  electronic  transitions.  A  traditional  presentation  of  spectroscopic  constants  and 
sample  calculations  are  included  in  Appendix  A. 

§2.1.1  Rotational  Transitions 

Since  iodine  is  a  homonuclear  diatomic,  it  has  no  rotating  dipole  with  which  to 
interact  with  the  electric  field  of  the  radiation.  Therefore,  no  energy  can  be  exchanged 
between  the  molecule  and  the  radiation,  and  no  pure  rotational  structure  is  observed. 

But  when  accompanied  by  an  electronic  transition,  iodine  panoplies  a  dense  rotational 
structure.  Molecular  iodine  belongs  to  Hund's  coupling  case  (c).  In  case  (c),  the 
spin-orbit  coupling  is  so  strong  that  the  spin  and  orbital  momenta  couple  strongly  at 
every  opportunity.  The  rotational  levels  are  quantized  with  discrete  energies  expressed 
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by  E(J)=BJ(J+1),  where  B  is  the  rotational  constant,  and  J  is  the  Jth  rotational  level.  The 
rotational  fine  structure  is  designated  by  the  following 

P  Branch  AJ=-1  =  ^lower  ”  ^ 

Q  Branch  AJ=0 

R  Branch  AJ=1  J„pp^,  =J  lower  ^ 

For  the  electronic  states  X(0\l  BiO\),  and  D(0\)  utilized  in  this  dissertation,  the 
Q-branch  transition  is  forbidden  since  it  occurs  only  in  states  with  nonzero  orbital 
angular  momentum  along  the  molecular  axis  as  restricted  by  the  selection  rule  AJ;^0  for 
Q=0  Q=0  transitions.  All  spectra  display  a  red-shaded  (§2.1.3)  progression  of  P-R 

doublets. 

The  rotational  structure  of  a  given  v',v''  transition  can  be  represented  by  a  single 
formula  using  the  rotational  energies.  The  representation  of  the  formula  is  known  as  a 
Fortrat  diagram'*  and  is  given  by 

v=Vo+ (B; +B">  +  (B; -B">^ 

where  m  =  J+1  [R-branch] 
m=  -J  [P-branch] 
v=  bandhead 

A  second-order  polynomial  fit  generates  both  the  bandhead  as  well  as  the  ground  and 
excited  state  rotational  constants.  The  vertex  of  the  polynomial  representation 
corresponds  to  the  bandhead,  Vq.  The  rotational  constants  can  be  determined  by 
B”={X+Y)I1  and  B;={X-Y)I2  where  (B\  +B"J  and  7=  (B^  -B"^).  An  example  of  a 
Fortrat  diagram  is  seen  in  Figure  2. 1 . 
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The  energy  of  a  rotational  level  includes  correction  terms  which  account  for  the 
non-ideal  behavior  due  to  centrifugal  distortion  and  anharmonicity.  The  truncated 
expansion  of  the  rotational  energy  Fj,  is  given  by 

F,  =  BJ(J+1)  -  D/(J+1)^  +  iy^(J+l)^ 

where  is  the  rotational  constant,  D„  is  the  centrifugal  distortion  constant  and  is  the 
anharmonicity  constant. 

§2.1.2  Vibrational  Transitions 

A  diatomic  molecules  will  vibrate  along  its  intemuclear  axis  with  a  frequency 
commensurate  with  its  mass  and  force  constant.  The  heavier  the  atom,  the  smaller  the 
vibrational  frequency.  For  example,  iodine  has  a  vibrational  frequency  of  6.4x10’^  Hz 
(214  cm  ' )  while  hydrogen  vibrates  at  1.3x10'''  Hz  (4395  cm  ' ).  No  pure 
vibration-rotation  transitions  are  observed  for  homonuclear  diatomics  between  rotational 
states  of  adjacent  vibrational  manifolds  since  no  amount  of  stretching  between  two 
identical  molecules  can  form  an  electric  dipole.  Vibration-rotation  transitions  are 
observed  when  accompanied  by  an  allowed  electronic  transition.  The  energy  of  a 
vibrational  level  using  the  anharmonic  oscillator  model  is  given  by  a  Taylor  series 
expansion  of  a  Hermite  polynomial 

G(v)=C0*(V+'/2)  -  ®eXe  +  «)  (V+'/a)^ +•  •  • 


When  a  vibronic  transition  occurs,  it  is  usually  accompanied  by  rotational  transitions. 

The  energies  of  these  transitions  are  given  by  Dunham  expansion  coefficients  discussed 
in  Section  §2.1.3  and  Appendix  A. 

§2.1.3  Electronic  Transitions 

Radiation  of  sufficient  energy  to  cause  electronic  transitions  will  simultaneously 
effect  vibrational  and  rotational  transitions.  The  most  probable  transition  between 
vibrational  levels  of  different  electronic  states  is  determined  by  the  Franck-Condon 
principal  and  is  discussed  in  Appendix  B.  The  Franck-Condon  principal  states  that  the 
vibrational  transition  is  most  probable  for  the  vibrational  state  whose  turning  point  is 
vertically  above  or  below  the  state  fi-om  which  the  transition  initiated  (except  for  the 
ground  vibrational  state).  The  vertical  path  is  the  most  likely  because  the  electronic 
transition  is  so  fast  in  comparison  to  the  nuclear  motion,  that  the  position  and 
momentum  of  the  nuclei  is  essentially  unchanged. 

The  shading  of  the  bands  of  an  electronic  transition  provides  an  indication  of  the 
relative  positions  of  the  potential  energy  curves  of  the  two  electronic  states  involved.  If 
and  R'^  >  R"^,  the  transitions  progress  to  lower  fi-equencies  and  the  band  is 
red-shaded.  Likewise,  if  B',>B"^,  the  transitions  progress  to  higher  fi-equencies  and  the 
band  is  blue-shaded.  For  the  D-X  system,  B"^>BV  and  red-shaded  progressions  are 
observed.  The  bandhead  of  a  red-shaded  progression  is  formed  by  the  R-branch.  The 
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electronic  states  used  in  selectively  preparing  v' -38  are  illustrated  in  Figure  2.2  and 
show  both  SEP  and  OODR  transitions. 

The  total  energy  E^j,  of  a  diatomic  molecule  can  be  partitioned  according  to  its 
electronic  (T  J,  vibrational  (GJ  and  rotational  (F,)  energies  where 

e,,  =  t,  +  g,  +  f, 

Another  parametrical  form  in  which  the  total  energy  can  be  expressed  in  known  as  the 
Dunham  expansion'®  and  is  given  by 

E,j  =  SY.k(o  +  f)"[J(J+l)f 

where  are  the  Dunham  coefficients.  Definitions  of  the  terms  can  be  found  in 

Appendbc  A. 

§2.2  Rotational  AND  Vibrational  Population  Distributions 

Generally,  the  selection  rules  for  radiative  transitions  do  not  hold  for 
non-radiative  transitions.  Non-radiative  transitions  are  defined  as  transitions  in  which  the 
change  of  the  quantum  state  is  not  accompanied  by  emission  of  radiation.  For 
non-radiative  transitions  induced  by  collisions,  only  alternating  J  values  (Ji^Ji+2n)  wiU 
populated  due  to  the  symmetry  selection  rule  AJ=  ±2n.  Molecular  collisions  cause 
nonradiative  transitions  to  the  other  vibration-rotation  levels  at  the  expense  of 
translational  kinetic  energy ,  thereby  populating  the  levels  in  accord  with  the  Boltzmann 


distribution  law. 
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e  2.3:  L  (X)  Rotational  Population  Distribution  at  300®K 
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Collisions  between  molecules  establish  a  thermal  population  of  the  rotational 
states.  The  rotational  population  distribution  is  shown  in  Figure  2.3.  The  rotational 
manifold  is  extensively  populated  for  two  reasons.  First,  the  energy  spacings  are  much 
smaller  than  the  vibrational  spacings.  Second,  the  Jth  rotational  level  is  (2J+l)-fold 
degenerate.  The  population  in  a  rotational  state  J  of  vibrational  mamfold  v  is  dictated  by 
Boltzmann  statistics  according  to 

-BJ(J+1)  -BJ(J+1) 

_  (2J+l)e  kT  _  (2J+l)e  kx 

no  “  -BJo(Jo+l)  “  Qj 

(2Jo+l)  kT 

where  B  is  the  rotational  constant,  Q,  is  the  partition  function.  As  seen  in  Figure  2.3,  the 
distribution  will  increase  to  a  maximum,  J^,  with  J^=  0.5896[T(°K)/B(cm  ’  )]’'^  -1/2. 
The  alternation  of  intensities  of  the  rotational  lines  is  a  result  of  the  nuclear  spin,  and  is 
discussed  in  Section  §4.3. 

Collisions  between  molecules  establish  a  thermal  population  of  the  vibrational 
states  as  well.  The  vibrational  population  distribution  at  room  temperature  is  given  in 
Figure  2.4.  The  distribution  for  the  vibrational  levels  v,  in  thermal  equilibrium  is  given 
by 

-vhoo 

By  _  e  fcT  _  e 
no  -  _ito  “  Qv 

Approximately  ninety-five  percent  of  the  population  for  is  distributed  between  the 
three  lowest  energy  levels. 
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Figure  2.4;  I2  XC^Eg"*^)  Vibrational  Population  Distribution  at  300°K 
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§2.3  Rotationally  Inelastic  (RI)  Collisions 

Nonreactive  collisions  are  classified  as  either  elastic  collisions,  where  the 
particles  interact  with  each  other  but  only  their  directions  of  motion  change,  or  as 
inelastic  collisions,  where  both  the  motion  and  the  internal  energies  of  the  particles 
change.  Like  elastic  collisions,  energy  transfer  collisions  of  the  inelastic  kind  preserve 
the  chemical  identity  of  the  colliding  species.  The  inelastic  collision  processes  involving 
vibration  and  rotation  are  of  great  importance  in  understanding  the  kinetics  of  gas-phase 
chemical  reactions  and  energy  transfer.  Of  all  the  fundamental  inelastic  molecular 
processes,  rotationally  inelastic  collisions  are  the  most  likely.  Collisional  energy  transfer 
processes^®  are  often  expressed  by  a  collision  cross  section  c^.  The  cross  section  is  an 
effective  area  associated  with  colliding  particles.  Rotational  energy  transfer  cross 
sections  are  typically  10  '®  to  10''®  cm^  and  are  one  to  two  orders  of  magnitude  higher 
than  either  vibrational  or  electronic  energy  transfer.  The  rotational  energy  transfer 
process  for  a  diatomic  is  given  by 

X2(v,ji)  +  M  ^  X2(v  jj.=ji+Aj)  +  M  +  AE 

where  AE  is  the  amount  of  energy  transferred  from  rotation  to  translation.  Figure  2.5 
illustrates  the  classical  trajectory  of  an  impulsive  collision  between  an  atom  and  a  rigid 
rotor.  In  diagram  of  the  classical  trajectory,  r  is  the  vector  from  the  origin  to  the 
instantaneous  position  of  the  particle,  p  is  the  linear  momentum,  I  is  the  orbital  angular 
momentum  (where  l=rxp),  and  j  is  the  rotor  angular  momentum.  As  a  collision  partner 
increases  in  mass,  more  of  the  orbital  angular  momentum  of  the  collision  will  be  made 
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available  to  the  rotational  angular  momentum  of  the  molecule.  Light  collision  partners 
like  hydrogen  and  helium  exhibit  a  high  degree  of  persistence  of  the  initial  rotational 
state,  while  the  transfer  efficiencies  of  heavy  collision  partners  vary  with  the  square  root 
of  the  reduced  mass  of  the  collision  pair.’’^* 

The  efficiency  of  vibrational  energy  transfer  in  diatomic  molecules  depends  to  a 
large  extent  on  the  relative  energy  gap  between  vibrational  levels  and  the  translational 
energy  of  the  bath  gas.  Dynamic  effects  which  determine  the  outcome  of  a  collision 
between  a  diatom  and  an  atomic  collision  partner  are  revealed  by  a  time  dependent 
perturbation  treatment  of  the  harmonic  oscillator  problem.^  For  vibrational  energy 
transfer,  a  simple  physical  interpretation  is  given  by  Ehrenfest's  Adiabatic  Principle.  For 
a  changing  force  acting  on  a  quantized  periodic  motion,  the  process  will  be:  adiabatic 
(no  energy  transfer)  if  the  change  of  force  is  small  during  a  period  of  motion;  or 
non-adiabatic  (efficient  energy  transfer)  if  a  change  of  force  is  large  during  the  period  of 
motion.  The  adiabaticity  parameter,  which  is  applicable  for  rotational  energy  transfer  as 
well,  provides  a  criterion  for  which  the  adiabatic  or  non-adiabatic  nature  of  a  collision 
may  be  estimated 


where  is  the  duration  of  the  collision,  L  is  the  period  of  the  oscillation,  1^  is  the  mean 
interaction  distance  and  v  is  the  vibrational  frequency.  Large  values  of  ^  correspond  to 
adiabatic  collisions.  Qualitatively,  energy  transfer  is  favored  for  collision  partners  with 
small  mass,  low  vibrational  frequency,  and  a  steep  intermolecular  potential.  Both  the 
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classical  Landau  and  Teller,  and  the  quantum  mechanical  Schwartz,  Slawsky  and 
Hertzfeld  (SSH)  theories^^  encompass  the  adiabatic  principle^’. 

Non-adiabatic  energy  transfer  processes  are  state-to-state  events  in  which  no  net 
chemical  change  occurs,  but  energy  is  exchanged  among  vibrational,  rotational  and 
translational  degrees  of  freedom.  In  a  chemical  laser,  energy  transfer  competes  with 
radiative  decay.  Therefore,  understanding  the  collisional  energy  transfer  processes  is 
essential  for  laser  optimization.  Table  2.1  lists  some  common  energy  transfer  processes. 
Relative  insight  on  the  magnitude  of  the  rate  constants  for  energy  transfer  processes  may 
be  gained  from  the  frequencies  of  the  natural  periods  of  motion.  For  example,  within 
the  framework  of  the  adiabatic  approximation,  the  translational  motion  is  considered 
slow  in  comparison  to  the  internal  motion.  Representative  frequencies  of  these  natural 
periods  are 

radiative  period  t=10  ’®  s 

vibrational  period  1=10  ’''  s 

rotational  period  t=10  ’^  s 

With  a  typical  average  molecular  velocity  of  10^  ,  a  molecule  can  travel  about  10  A 

in  a  picosecond  or  one  rotational  period.  Ten  A  is  the  outer  limit  for  long-range 
interactions.  Short-range  interactions  occur  within  1  A  and  the  collision  is  considered 
irrotational.  Consider  that  during  each  rotation,  the  average  molecule  will  vibrate  100 
times.  But  in  comparison,  rotational  energy  spacings  are  much  smaller,  so  R-R  and  R-T 
energy  transfer  are  very  efficient.  Typical  relaxation  times  for  rotation-translation  (RT) 


Table  2. 1 :  Electronic,  Vibrational  and  Rotational  Energy  Transfer  Processes 
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“  Radiative  lifetime  is  the  decay  process  that  occurs  in  the  absence  of  all  collisions  where  t7  =  Aj, 
M  is  non-reacting  collision  species  e.g.  Ar,  He,  Nj 
®  Typical  relaxation  time  px  (atm  sec) 
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transfer  is  on  the  order  of  10'*  while  vibration-translation  (VT)  energy  transfer  is  on  the 
order  of  atm  sec.  A  rate  coefficient  can  also  be  expressed  as  an  effective  cross 
section  by 

k=vo 

where  v  is  the  mean  thermal  velocity  and  a  has  units  of  cm^  molecule  '. 

Experimental  spectra  of  the  state-to-state  energy  transfer  events  exhibit  a  pattern 
of  modulating  intensity  which  is  characteristic  of  the  molecule,  the  states  involved,  and 
the  collision  partner.  From  an  analysis  of  the  spectra,  an  array  of  state-to-state  rotational 
energy  transfer  rates  for  ->Jf  can  be  determined  and  parametrically  fitted  with 
constants.  This  process  can  be  repeated  for  all  values  of  ,  and  the  resulting  rates 
can  be  represented  as  a  matrix  of  rate  constants  for  the  initial  and  final  states. 

The  two  distinct  classes  of  simplified  representations  of  a  matrix  which  enable 
the  prediction  of  rotationally  inelastic  rate  constants  from  some  basis  are  known  as 
either  fitting  or  scaling  laws.  In  a  scaling  theoretic  approach,  an  a  priori  (deductive) 
equation  relates  one  row  fi'om  the  rate  matrix  of  cross  sections  to  the  entire  matrix. 
These  dynamically  based  angular  momentum  scaling  laws  express  rate  constants  in  terms 
of  a  subset  of  the  matrix,  typically  one  column  or  row  (the  basis  rate  constant).  On  the 
other  hand  fitting  laws  are  empirical  expressions  which  parametrize  the  entire 
state-to-state  array.  Section  §2.3.1  will  discuss  the  angular  momentum  based  scaling 
laws  while  Section  §2.3.2  summarizes  the  energy-gap  based  fitting  laws. 
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§2.3.1  Scaling  Laws 

The  S-matrix  formalism  was  applied  by  A.  DePristo,  S.  Augustin,  R. 

Ramaswamy  and  H.  Rabitz^^  to  RT  energy  transfer  by  deriving  a  scaling  relationship  in 
which  the  coefficients  were  calculated  by  incorporating  the  internal  energy  level  spacing 
and  wavefunctions,  and  the  kinetic  energy.  The  application  of  classical  S-matrix  theory 
to  an  inelastic  scattering  problem  involves  three  steps:^^  first,  finding  the  critical  paths 
which  connect  the  initial  and  final  state;  second,  evaluating  the  probability  amplitude, 
and  third  superimposing  the  probability  amplitudes  to  obtain  S-matrix  elements  and  then 

squaring  to  obtain  transition  probabilities. 

The  two  angular  momentum  based  scaling  laws  are  the  limited  infinite  order 
sudden^®  (10 S)  and  the  energy  corrected  sudden^  (ECS)  models.  The  10 S  model  is 
based  on  the  sudden  approximation  in  scattering  theory.  The  fimdamental  precept  of  the 
lOS  approximation  is  that  the  rotationally  inelastic  colUsion  is  instantaneous  and  in  the 
sudden  limit,  t->0,  and  the  molecule  does  not  rotate  during  collision  (where  t  is  the 
reduced  duration  of  a  collision).  This  approximation  requires  the  collision  time  x,,  be 
much  less  than  the  rotational  period  x„, .  The  lOS  rate  constant  is  related  to  the  basis 
rate  constant  by 


kios  =  (2jf  +  l)exp 


Eji  Ej> 
kT 
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1  jf 
VO  0  0 
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(21-f  l)k(l-^0) 


41 


where  j,  is  the  larger  of  OiJf),  k(l-»0)  =  a[l(l+l)]-\  a  is  a  parameter,  T  is  the  ambient 
translational  temperature,  and  (  )  is  a  3-j  symbol.  The  exponential  factor  ensures 

detailed  balancing.  The  basis  rates  k(1^0)  are  multiphed  by  the  3-j  symbol  to  obtain 
rotational  averaging.  Rotational  transfer  is  restricted  to  coplanar  geometry  (via  the  3-j 
symbol)  and  indicates  that  an  amount  of  angular  momentum  equal  to  the  change  in 
rotational  angular  momentum  is  simply  added  to  that  already  present  as  though  the 
molecule  is  non-rotating.  In  a  sudden  collision,  all  angular  momenta  are  in  a  plane 
perpendicular  to  z  which  explains  why  all  the  m's  in  the  3-j  symbols  are  zero^^.  The 
infinite  order  sudden  approximation  is  valid  for  light,  short  range  systems  at  high  energy. 
At  lower  energies  and/or  heavy  systems,  energetic  corrections  become  necessary. 

The  less  restrictive  and  more  realistic  assumption  of  a  collision  with  a  finite 
rotation  duration  is  given  by  the  energy-corrected  sudden^*’^®  approximation.  The 
rotation  in  radians  of  the  diatom  during  the  collision  is  known  as  the  reduced  duration 


Xj=©jxTd 


where  (j[)j=angular  velocity  of  the  molecule  when  it  has  angular  momentum  quantum 
number  j  and  T^  is  the  duration  of  collision  where  Td=  l^v  which  is  the  characteristic 
interaction  length  velocity  of  target  atom  relative  to  the  molecule.  The  ECS  model 


scaling  law  for  a  transition  firom  an  initial  rotational  state  j^  to  a  final  rotational  state  jf 
may  be  expressed  by; 


kscs  =  (2jf  +  l)exp  I  1 2 
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and  t,=47c1,cB0+'4  )/v.  The  parameter  is  interpreted  as  the  collision  length,  v  is  the 
mean  velocity,  and  is  an  effective  collision  time.  The  ECS  approximation  is  by  far  the 
best  scaling  law  for  RI  data  (for  Na2*-rare  gas  systems  ECS  introduced  less  than  5% 

error). 

§2.3.2  Fitting  Laws 

In  contrast  to  the  angular  momentum  based  scaling  laws,  fitting  laws  •  are 
statistical  in  nature  (NJ  and  based  on  the  amount  of  energy  transferred  [BJ(J+1)] . 
Fitting  laws  are  empirical  expressions  with  fi’eely  adjustable  parameters  used  in 
analyzing  experimental  data  for  rotationally  inelastic  collisions.  There  are  three  general 
forms  of  the  energy  based  fitting  laws:  (1)  exponential  gap  law  (EGL),  (2)  statistical 
power  gap  (SPGL),  and  (3)  hybrid  statistical  power-exponential  gap  (SPEG)  laws.  The 
exponential  gap  law  is  given  by  an  exponential  decay  of  the  rate  with  respect  to  the 
amount  of  energy  transferred  in  the  collision.  In  fact,  the  EGL  can  be  derived  fi'om  the 
entropy  maximization  principal  of  information  theory. 

This  method  is  known  as  the  information  theoretic  approach  and  it  has  been 
appUed  for  treating  the  final  energy  state  distribution  for  rotational  energy  transfer.  The 
information  theoretic  approach  uses  a  comparison  of  the  actual  final  state  distribution 
P(Ej)  to  a  calculated  a  priori  distribution  P°(Ej),  which  is  derived  by  assuming  that  all 
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quantum  states  at  a  total  given  energy  are  equally  probable.  The  entropy  deficiency, 
which  is  equal  to  the  information  content  of  the  actual  distribution  is  given  by 

AS=Rln(P''(Ej)/P(Ej)) 

The  comparison  can  also  be  expressed  as  a  surprisal,  which  is  a  measure  of  the  deviation 
between  the  probability  of  the  final  distribution  from  that  of  the  a  priori  distribution. 

I(E^)-ln(P(E.)/P“(Ej)) 

where  P(Ej)=P°(Ej)exp[-I(E.)]. 

The  product  I(Ej)  has  been  called  the  surprisal  of  the  product  state  distribution.  The 
usage  of  the  label  surprisal  acquired  a  certmn  opprobrium,  but  was  direct  in  the  sense  if 
you  don't  get  what  was  expected,  then  by  definition  you  are  surprised^^ 

First  proposed  by  J.  E.  Polanyi  and  K.  B.  WoodalP,  the  EGL  appeared  to  be  an 
accurate  representation  of  the  experimental  data  for  HF .  The  EGL  is  given  by 
\^°^=a  exp-(-0|AE|)R(AE)(2Jf+l) 

where  a  and  0  are  fitting  parameters  and  R(AE)  is  the  ratio  of  the  final  to  initial  density 
of  translational  states.  However,  significant  deviations  were  noted  with  this 
representation  as  more  precise  data  became  available. 

An  alternate  formalism  was  proposed  by  D.  E.  Pritchard,  N.  Smith,  R.  D.  Driver 
and  T.  A.  Brunner^®  which  scales  the  RT  rates  to  a  power  gap  law.  The  statistical  power 
gap  law  is  given  by 


k  =  a  lAE/Bj-  N,(J, Jf)(R(AE,T)) 
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where  a,  and  a  are  fitting  parameters,  is  the  rotational  constant,  is  the  factor  that 
allows  for  a  restriction  on  Am  during  the  collision,  and  R(AE,T)  is  the  average  ratio  of 
final  to  initial  density  of  translational  states  at  temperature  T.  Interestingly,  if  maximum 
entropy  is  applied  to  In  (AE),  the  SPGL  is  obtained.  However,  there  is  no  a  priori 
justification  for  doing  so. 

The  two  major  innovations  of  the  SPGL  are  the  assumption  of  a  power  law 
dependence  on  the  energy  defect  and  the  flexible  angular  momentum  factor  as  given^  by 
N^OiJf)  =  [(2n2+l)(2n3+l)-a(a+l)]/2ji+l  where  of  the  three  numbers  {jj,  j^^  X),  ni>n2>n3 
and  a  is  the  greater  of  zero  or  n2+n3-n,.  This  angular  factor  allows  fitting  fi'om 
m-conserving  Ng  (^~0)  to  m-randomized  (X=°o)  and  in  between  with  intermediate 
values  of  X.  In  studies  covering  a  wide  range  of  diatomics,  RT  is  invariably  observed  to 
occur  with  minimal  reorientation  of  the  j  vector.  Rotational  transfer  is  accompanied  by 
retention  of  the  original  orientation  of  the  rotor^^. 

In  order  to  increase  the  flexibility  and  extend  the  applicability  of  the  SPGL,  a 
three-parameter  hybrid  scaling  law  has  been  proposed.  The  hybrid  statistical  power 
exponential  gap  (SPEG)  scaling  law  has  the  form  given  by 

kSPEG^a{(E,-E.)  /Bg}-*exp{-P((E,-E,)  /kT} 

where  a,  5,  and  P  are  fitting  parameters. 

Comparison  between  various  scaling  laws  is  usually  reported  in  terms  of  the 

goodness-of-fit  statistic^^  chi-squared  x^/v,  and  given  by 


45 


u 


kexp  kcalc 


where  and  are  the  experimental  and  calculated  rate  constants,  respectively,  is 
the  error  associated  with  the  experimental  datum,  and  v  is  the  number  of  independent 
degrees  of  freedom  in  the  fit.  When  x'/v«l,  the  data  is  being  fit  on  average  to  within  the 
reported  experimental  deviation  a.  A  large  x'/v  value  indicates  the  expression  used  to 

describe  the  fit  is  an  inadequate  representation. 

The  principle  of  detailed  balancing  can  be  applied  to  reverse  processes  involving 

radiation,  electron  collisions,  chemical  reaction,  nuclear  reaction,  or  any  combination. 
Generally,  this  principle  is  invoked  to  obtain  unmeasured  rates  from  measured  rates. 
This  principle  states  that  the  rate  of  transition  from  state  m  to  state  n  is  related  to  the 
rate  of  the  reverse  transition  (n^m).  For  example,  if  the  ratio  for  levels  m-3  and  n-4 
has  not  been  measured,  but  the  ratio  for  k(3,4)/k(3,2)  is  known.  Then,  the  rate 


coeflBcients  are  related  b)^® 


ki^f  _  ^ 
kM  “  gi® 


kT 


Even  for  a  system  not  in  thermal  equilibrium,  the  rates  of  the  isolated  collision  events 
obey  the  above  relationship. 
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Chapters 

Experimental 

Chapter  3  discusses  the  experiment  techniques  and  apparatuses  used  in  this 
dissertation.  Section  §3.1  reviews  laser  induced  fluorescence  (LIF)  spectroscopy  which 
is  inclusive  of  the  ffee-jet  and  SEP  techniques  as  well  as  the  )  +  Ij  energy  transfer 
studies.  Free-jet  expansion  is  detailed  in  Section  §3.2  and  the  apparatuses  employed  in 
the  stimulated  emission  pumping  studies  are  discussed  in  Section  §3.3.  Additional 
information  on  lasers,  dyes,  and  optical  materials  is  provided  in  Appendix  B.  A 
description  of  lineshapes  important  for  characterizing  the  frequency  response  in  molecular 
spectroscopy  is  included  in  Appendix  F. 

§3 . 1  Laser  Induced  Fluorescence  (LIF)  and  Ig  +  I(^P  1/2)  Energy  Transfer 

In  LIF  measurements,  molecules  are  typically  excited  from  the  ground  electronic 
state  to  an  excited  electronic  level  by  absorption  of  radiation.  The  excited  molecules  can 
then  decay  back  to  the  ground  electronic  state  through  spontaneous  emission  of  a 
photon.  The  intensity  of  the  fluorescence  is  proportional  to  the  excited  state  number 
density.  The  energy  of  the  absorbed  photon  corresponds  to  the  energy  required  to 
transition  from  one  eigenstate  to  another. 

The  study  of  collisional  transfer  processes  in  this  dissertation  was  accomplished 
through  utilization  of  two  LIF  techniques;  excitation  and  fluorescence  (emission) 
spectroscopy.  In  excitation  spectroscopy,  the  excitation  spectrum  is  obtained  as  the 
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fluorescence  intensity  as  a  function  of  the  excitation  wavelength.  This  type  of  LIF  may  be 
further  classified  as  wavelength-resolved  or  undispersed  if  a  monochromator  was  or  was 
not  used,  respectively.  With  the  monochromator,  the  detection  wavelength  is  fixed  at  a 
position  of  strong  fluorescence  and  is  generally  similar  in  appearance  to  the  absorption 
spectrum.  In  fluorescence  (emission)  spectroscopy,  the  wavelength  of  the  exciting  laser  is 
fixed  while  the  fluorescent  wavelength  is  dispersed  with  a  scanmng  monochromator.  The 
fluorescence  spectrum  is  obtained  as  a  fimction  of  the  emission  intensity  vs.  the  emission 
wavelength. 

Wavelength  resolved  fluorescence  excitation  spectroscopy  was  used  in  the  studies 
of  electronic  to  vibrational  (E— >V)  energy  transfer  between  I(  Pj/j )  "*■  f2-  ^  schematic 
diagram  of  the  experimental  apparatus  used  in  obtaining  the  spectra  is  shown  in  Figure 
3.1.  Iodine  vapor  (P«0.3  Torr)  in  equilibrium  with  the  crystalline  solid  at  room 
temperature  was  introduced  into  the  vacuum  chamber.  The  third  harmonic  (355  nm)  of 
the  fundamental  1064  nm  beam  produced  by  a  Quanta-Ray  NdiYAG  DCR-2  pumped  a 
pulsed  dye  laser  (Coumarin  500  dye)  which  photodissociated  at  496  nm.  I(^P,/2) 
was  produced  from  the  photolysis  of  Ij  by  the  photodissociation  of  the  5^11(0  J  state. 
After  a  5  |xs  delay,  a  Lambda-Physik  tunable  pulsed  dye  laser  was  fired.  The  output  from 
the  probe  dye  laser  was  frequency  doubled  with  an  autotracking  KDP  crystal.  LIF  spectra 
from  268  -  303  nm  were  collected  using  C540,  R560,  R6G,  and  R590  laser  dyes.  In 
order  to  increase  dye  laser  output  near  295  nm  (590  nm  undoubled),  R6G  dye  was 
red-shifted  by  the  addition  of  a  5%  mixture  of  ethanol  and  R590  dye.  Energy  transfer 


Iodine  Cell 
(Calibration) 
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Figure  3.1:  Experimental  Apparatus  for  l2(X;25<v"<48)  Energy  Transfer 
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was  recorded  by  interrogation  of  the  iodine  system  by  scanning  the  probe  laser  and 
monitoring  the  fluorescence  at  321  nm.  The  LIF  was  resolved  using  a  0.25  m 
Jarrell- Ash  monochromator  and  detected  by  an  EMI  9558  photomultiplier.  The 
wavelength  resolved  excitation  fluorescent  signals  from  the  photomultiplier  were 
preamplified  and  then  captured  by  a  LeCroy  32MHz  transient  digitizer.  Simultaneously, 
an  iodine  calibration  cell  was  collected  on  a  100  MHz  transient  digitizer  and  later  utilized 
for  absolute  calibration  of  the  probe  laser.  Rotationally-resolved  spectra  for  the  D-X 
transitions  4<v'<134-23<v"<47  were  recorded  after  adjusting  the  delay  to  the  shortest 
time  necessary  in  order  to  minimize  multiple  collisions. 

Figure  3.2  shows  an  example  of  the  high-resolution  rotationally  resolved  LIF 
spectra  of  energy  transfer  between  I(^,/2)  +  la-  The  LIF  spectra  is  characterized  by  its 
red-shifted  and  extremely  dense  progression  of  P  and  R  branches  (both  even  and  odd  J) 
and  no  distinguishing  features  (i.e.  no  vibrational  bandheads  are  prominent).  The  lack  of 
notable  features  are  due  to  the  18  difierent  bands  which  have  Franck-Condon  factors  of 
IxlO"^  or  better  in  a  typical  15  cm  '  scan.  The  dense  structure  of  the  rotationally  resolved 
spectra  made  assignments  non-trival,  therefore  free-jet  expansion  was  used  to  reduce 
spectroscopic  congestion  and  simplify  assignments. 

§3 .2  Free-Jet  Expansion 

During  the  free-jet  expansion  of  a  high  pressure  gas  expanding  through  a  nozzle 
into  a  low  pressure  environment,  the  translational  temperature  of  the  gas  is  significantly 
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Wavelength  (A) 

Figure  3.2:  Typical  High  Resolution  LIF  Spectrum  of  I2+I* 
Energy  Transfer  with  Simultaneous  I2  B^X 
Aborption  Shown  Inverted  (top). 
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cooled.  The  high  velocity  flow  of  an  ideal  gas  through  a  nozzle  is  described  by  an 

isentropic  (reversible  adiabatic)  flow  in  steady  state.  In  expansion  with  a  stagnation 

temperature  of  To=T„t,  the  gas  is  rapidly  cooled  at  a  rate  approaching  10^°K/sec.  Initially, 

the  rotational  relaxation  is  rapid  where  the  density  is  high.  The  number  of  collisions 

decrease  significantly  and  the  rotational  degrees  of  freedom  can  no  longer  be  equilibrated, 

and  the  rotational  temperature  becomes  fixed.  If  the  stagnation  pressure  is  increased,  the 

number  of  collisions  will  increase  and  the  rotational  temperature  vnU  decrease.  However, 

the  translational  temperature  will  decrease  until  all  collisions  have  stopped.  The  rotational 

temperature  can  be  determined  from  the  final  average  speed  u  of  the  expansion  and  the 

velocity  distribution'  Tq 

j  C„,(T)dT  =  imu2-C,(To-T,) 

Trot 

where  C  is  the  heat  capacity.  A  free-jet  expansion  differs  from  a  supersonic  expansion 
by  the  fact  that  the  free-jet  beam  is  not  collimated  downstream. 

This  technique  is  useful  in  reducing  spectroscopic  congestion  by  producing 
molecules  which  are  rotationally  and  vibrationally  cold.  Cold  samples  are  produced  by 
seeding  the  molecule  in  an  inert  carrier  gas.  Then  flo\ving  the  sample  through  a  nozzle, 
random  thermal  motion  on  the  high  pressure  side  is  converted  to  a  highly  directional  flow 
near  the  continuum  region  of  the  nozzle.  As  a  result,  the  translational  degrees  of  freedom 
are  cooled  as  the  distribution  of  molecular  velocities  narrow. 

In  addition  to  cooling  of  the  translation  degrees  of  freedom  in  the  expanding  jet, 
clustering  of  the  molecules  is  induced.  Figure  3.3  shows  a  schematic  representation  of  the 
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Figure  3.3;  lodine/Argon  in  a  Free- Jet  E?q)ansion 
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clustering  of  iodine  and  argon  in  a  ffee-jet  expansion.  Photofragmentation  of  l2Ar^ 
clusters  populated  highly  excited  vibrational  levels  of  the  ground  state  when  Ijf  was 
ejected  from  the  fragmenting  clusters.  Condensation  processes  are  the  most  efficient  at 
the  nozzle  where  the  collision  frequency  is  the  greatest.  Under  these  conditions,  very  low 
rotational  temperatures  (13°K)  were  attained,  yielding  relatively  uncongested  spectra. 

The  cooling  effect  is  enhanced  by  monatomic  gases  since  they  do  not  have  any 
rotational  and  vibrational  degrees  of  freedom.  Cooling  of  the  sample  is  generated  by  the 
high  pressure  differential  with  supersonic  flow  through  a  nozzle,  and  for  the  continuous 
free-jet  expansion,  a  large  pumping  capacity  is  required.  Our  vacuum  system  consisted  of 
a  Roots  blower  and  a  Stokes  vacuum  pump  with  a  500  cfin  capacity.  The  Roots  blower 
was  attached  to  the  sample  chamber  via  a  flexible  stainless  steel  bellows  for  vibration 
absorption.  The  sample  chamber  was  a  six-way  stainless  steel  cavity  with  baffled  arms. 
Injection  of  the  gas  sample  through  the  nozzle  was  accomplished  by  an  x,z  translation 
mount  with  Cajon  Ultra-Torr  fittings.  The  translation  mount  allowed  continuous 
adjustment  of  nozzle  position  under  vacuum  conditions.  Detailed  discussions  and 
drawings  of  the  apparatus  can  be  found  in  dissertations  by  M.  McQuaid,^  Y.  Lin,  or  X. 
Zheng." 

A  free-jet  expansion  was  utilized  to  produce  rotationally  cold,  vibrationally 
excited  IjCY;  v"=40).  Previously,  Fei  et  al.*  had  observed  vibrationally  excited  Ij  Yin  a 
free-jet  expansion,  but  they  did  not  attempt  any  high  resolution  LIF.  For  this  study, 
vapor  (P«0.3  Torr)  was  seeded  in  argon  with  a  backing  pressure  of  1.4  atm.  The  sample 
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was  injected  as  a  continuous-flow  expansion  through  a  1  mm  nozzle  into  a  chamber 
evacuated  with  a  Roots  blower.  The  chamber  pressure  was  maintained  at  140  mTorr. 

The  experimental  apparatus  shown  in  Figure  3.1  for  the  +  iC?  1/2)  studies  is  almost 

identical  to  the  ffee-jet  apparatus  except  the  continuous-flow  expansion  replaced  the 
static  cell  and  the  pulsed  dye  laser  (PDL)  was  not  used.  Instead  of  the  PDL  output, 
clusters  of  IjAr^  were  directly  excited  at  532  nm  by  the  frequency  doubled  Nd:YAG  laser 
(Quanta-Ray  DCR-2).  This  excitation  produced  metastable-excited  complexes  and 
vibrationally  excited  I2  molecules  in  the  ground  electronic  state.  The  UV  radiation  for 
probing  the  D<—X  transition  was  generated  by  frequency  doubling  the  output  from  an 
excimer  pumped  dye  laser  (Lambda  Physik  EMG  101,  FL3002E,  R6G)  with  a  KDP 
crystal.  Absolute  wavelength  calibration  was  obtained  by  simultaneous  recording  of  the 
iodine  5  absorption  spectra  prior  to  the  frequency  doubling  of  the  probe  dye  laser 
fundamental.  After  a  5  ps  delay,  the  frequency  doubled  output  of  the  Lambda  Physik 
laser  was  focused  approximately  5  mm  below  the  532  nm  beam.  With  the 
monochromator  set  at  390  nm,  the  relative  laser  and  nozzle  position,  delay,  and  flow 
were  optimized  for  detection  of  fluorescence  from  the  l2Ar„  clusters.  After  fluorescence 
signal  optimization,  the  monochromator  was  set  to  321  nm  to  monitor  D->X 
fluorescence.  Vibrationally  hot  12(A)  was  then  characterized  through  UV  excitation  to  the 
ion-pair  state.  The  signal  was  dispersed  by  a  0.25  m  monochromator  and  detected  by  a 
photomultiplier  (EMI  9558  QB).  An  average  of  200  shots  per  step  and  a  PMT  voltage  of 
2200  V  was  required  for  a  reasonable  signal  to  noise  ratio.  The  signal  from  the 
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photomultiplier  was  preamplified,  digitized  (LeCroy  TR8837F,  32MHz  sampling  rate) 
and  recorded  on  a  personal  computer. 

§3.3  Stimulated  Emission  Pumping  (SEP) 

Electrical  discharges,  exothermic  chemical  reactions,  and  UV  photodissociation 
are  the  three  most  common  and  naturally  occurring  examples  by  which  highly 
vibrationally  excited  molecules  are  produced.  The  major  reason  for  the  lack  of 
state-resolved  energy  transfer  measurements  for  highly  vibrationally  excited  molecules  is 
the  difficulty  in  cleanly  populating  individual  rovibrational  levels.  This  problem  can  be 
overcome  by  use  of  the  spectroscopic  techmque  of  stimulated  emission  pumping. 
Stimulated  emission  pumping®  (SEP)  is  a  folded  variant  of  optical-optical  double 
resonance  (OODR).  A  crucial  distinction  between  SEP  and  any  single  resonance 
technique  is  that  the  rovibrational  spectra  are  fi-eed  of  rotational  congestion’  since  the 
rigorous  electric  dipole  AJ=±1  limits  the  possible  dump  transitions  from  a  SEP 
intermediate. 

§3.3.1  Sample  Chamber 

An  illustration  of  iodine  sample  chamber  is  shown  in  Figure  3.4.  The  cylindrical 
chamber  was  constructed  of  stainless  steel  with  dimensions  65  cm  high  and  20  cm  in 
diameter.  Standard  Conflat  (Del-Seal)  type  flanges  with  copper  gaskets  sealed  the  top, 
bottom,  and  pump  connections.  The  chamber  arms  were  30  cm  long  and  contained 


Monochromator 
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Figure  3.4:  Illustration  of  Sample  Chamber  Configuration  for  SEP-LIF  Studies 
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blackened  baffles  with  6  mm  centers  to  reduce  laser  scatter.  Quartz  windows  were 
oriented  at  Brewster  angle  (56°39')  to  transmit  radiation  without  reflection  for  one 
polarization  of  the  electric  field.  The  arms  are  connected  to  the  chamber  with  one  inch 
Cajon  Ultra-Torr  fittings  for  removal  and  cleaning  of  the  windows.  Numerous  smaller 
fittings  on  the  chamber  consist  of  Kwik-Flange  or  quick  disconnect,  both  with  Viton 
0-rings.  Two  ports  with  V4 "  Cajon  Ultra-Torr  fittings  were  used  for  connecting  the 
iodine  and  diluent  gas. 

The  chamber  was  evacuated  by  an  Alcatel  direct  connect  or  Welch  DuoSeal 
mechanical  pump  to  a  baseline  pressure  of  1-5  mTorr.  A  Varian  differential  pump  with 
an  ultimate  vacuum  of  10'^  Torr  was  employed  for  chamber  bake-out  and  leak  detection. 
When  leaks  were  detected,  they  were  sealed  with  Torr-Seal  or  epoxy.  Removal  of  the 
epoxy  was  accomplished  with  glacial  acetic  acid.  Pressure  in  the  chamber  was  measured 
with  a  McLeod  mercury  gauge  or  a  MKS  Baratron  Type  222  capacitance  manometer 
(100  Torr)  with  digital  display. 

A  biconvex  quartz  lens  (f  =  45  mm)  was  installed  in  an  adjustable  mount  inside  the 
sample  chamber.  Biconvex ,  or  symmetric-convex  lenses,  have  positive  focal  lengths  and 
form  real  and  virtual  images.  These  lenses  are  best  for  imaging  close  to  1 : 1 .  The 
biconvex  lens  focuses  the  fluorescence  of  the  sample  through  a  quartz  window  located 
on  the  top  of  the  chamber  into  the  entrance  slit  of  the  monochromator.  Because  of  its 
symmetry,  the  biconvex  lens  provides  the  lowest  minimum  aberration'^  possible  with  a 
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single  element.  Minimizing  chromatic,  spherical  aberrations  are  important  because  the 
behavior  of  the  lens  depends  on  the  wavelength  of  the  light  since  shorter  wavelength 
light  is  focused  at  a  closer  point  to  the  lens  than  longer  wavelengths. 

After  focusing  the  light  onto  the  entrance  slit  of  the  monochromator,  the 
fluorescence  was  then  dispersed  with  a  grating  monochromator.  The  Czemey-Tumer 
grating  monochromator  used  in  these  experiments  contains  an  entrance  slit,  collimating 
and  focusing  mirrors,  a  dispersing  element  (grating),  and  an  exit  slit.  The  basic  grating 
equation’^  is  defined  as  mX=d(sin  D  +  sin  I),  where  m  is  the  order  of  diffraction  (spectral 
order),  X  is  the  diffracted  wavelength,  I  and  D  are  the  incident  and  diffracted  angle, 
respectively,  and  d  is  the  grating  spacing.  Usually,  only  first  order  is  desired  since  it  is  the 
most  intense.  The  monochromator  used  in  these  experiments  was  a  0.25  m  Jarrell-Ash. 
Since  gratings  are  not  efficient  for  all  wavelengths,  the  monochromator  contained  two 
externally  interchangeable  gratings;  low  blaze  1180  g/mm,  180-5000  A;  and  high  blaze 
2360  g/mm,  5000  A- 1  pm.  The  efficiency  of  the  grating  may  be  improved  by  changing 
the  groove  facet  angle.  The  optimization  of  the  grating  for  a  wavelength  range  is  known 
as  blazing.  In  addition  to  optimizing  the  blaze  of  the  grating,  aligning  the  long  dimension 
of  the  source  with  the  long  dimension  of  the  slit  ensures  maximum  signal.  The  intensity  of 
the  dispersed  fluorescence  is  measured  with  a  photomultiplier  tube  (PMT).  The  PMT 
connected  to  the  monochromator  in  these  experiments  was  an  EMI  9558  QB.  The  signal 
intensity  as  a  function  of  the  PMT  voltage  is  shown  in  Figure  3.5.  Berkeley  Nucleonics 
Corp  (BNC)  connectors  attached  the  PMT  to  the  data  acquisition  system. 


Signal  Intensity  vs  PMT  Voltage 
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§3.3.2  Data  Acquisition 

After  capturing  the  fluorescence  with  the  PMT,  the  output  was  processed  by  either 
a  transient  digitizer  or  boxcar  integrator.  Figure  3.6  shows  a  schematic  of  the  digital  data 
acquisition  system  with  the  transient  digitizer.  The  heart  of  the  data  acquisition  system  is 
the  Computer  Automated  Measurement  and  Control  (CAMAC)  interface.  CAMAC  is  an 
internationally  agreed  upon  electrical,  organizational  and  mechamcal  standard  for  data 
collection  equipment  containing  a  standard  highway  bus  based  on  IEEE-583.  External 
clock  and  trigger  interconnects  to  each  module  create  a  single  clock  and  trigger  input  for 
the  entire  acquisition  system.  Once  triggered,  the  CAMAC  system  records  all  channels 
simultaneously. 

Signals  from  the  PMT  were  preamplified  and  digitized  by  a  transient  digitizer.  The 
preamp  boosts  the  signals  for  the  transient  digitizers,  arming  the  analog  to  digital 
converter  (ADC).  Once  armed,  the  ADC  digitizes  the  signal  continuously  and  feeds  the 
sample  into  memory  using  circular  addressing.  In  this  manner,  the  transient  digitizer  can 
record  both  transient  and  repetitive  signals  capturing  both  pre-  and  post-trigger 
information.  While  the  32  MHz  transient  digitizer  was  used  in  signal  processing,  the  100 
MHz  transient  digitizer  simultaneously  collected  and  processed  the  iodine  calibration 
signal.  Usually,  less  than  4%  of  the  output  from  the  probe  pulse  dye  laser  was  focused 
into  an  iodine  reference  cell  where  undispersed  LIF  was  detected  with  a  Amperex  CVP 
(SI)  photomultiplier  tube.  When  possible,  the  first-order  Fresnel  reflection  from  the 
Schott  UV  transmitting  black  glass  was  reflected  into  the  calibration  cell. 


LeCroy  Transient 
Digitizer  100  MHz 


:  Digitial  Data  Acquisition  System 
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In  collecting  time  resolved  excitation  spectra,  a  boxcar  integrator  was  used  in  place 
of  the  transient  digitizer  and  CAMAC  crate.  The  PMT  signal  was  connected  to  the 
gated  boxcar  integrator  (SR  250)  and  an  oscilloscope.  A  reference  signal  from  the  gated 
500  output  of  the  boxcar  was  also  displayed  on  the  oscilloscope.  The  signal 
representing  the  integration  gate  was  adjusted  with  the  boxcar  delay  and  width  controls 
for  maximum  signal.  The  average  output  from  the  boxcar  was  recorded  from  the  digital 
meter.  In  this  manner,  the  probe  laser  was  fixed  on  a  transition  (usually  the  parent  peak) 
while  the  delay  between  the  dump  and  probe  was  adjusted.  The  signal  strength  from  the 
digital  meter  was  recorded  as  a  function  of  the  delay  between  the  dump  and  probe  lasers. 

A  personal  computer  (Zenith  ZW158)  was  used  for  interfacing  with  the  CAMAC 
crate  system.  A  DAS-8  analog  to  digital  converter  board  in  the  Zenith  drives  the 
FL3002E  pulsed  dye  laser  or  pressure  scans  as  directed  by  the  user  through  four 
computer  programs  for  use  in  data  acquisition  and  control.  LASER  was  utilized  for  all 
scans  which  required  pressure  tuning  of  the  pulsed  dye  laser's  oscillator  cavity. 

IAMBOX2  was  used  for  both  low  and  high  resolution  scanning  of  the  probe  laser. 
SIGNAVdXi!^  SIGN32  were  used  in  recording  the  output  of  the  100  MHz  and  32  MHz 
transient  digitizers,  respectively.  Since  the  memory  of  the  100  MHz  transient  digitizer 
could  not  be  displayed  on  the  Hewlett-Packard  oscilloscope,  SIGNAV was  the  only 
means  available  to  observe  signal  output  from  the  100  MHz. 
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§3.3.3  Radiation  Sources 

The  three  (pump)  laser  systems  used  in  these  experiments  were:  Spectra-Physics 
neodymium  doped  yttrium  aluminum  garnet  (Nd:YAG;  Nd^^:  Y3Al50]2)  laser  model 
DCR-2'^  with  harmonic  generator  (HG)  for  frequency  conversion  of  the  1064.5  nm 
output,  prism  harmonic  separator  (PHS)  for  separating  the  outputs,  pumping  a  dye  laser 
(PDL-1);  Lambda-Physik  (EMG-101  MSC)  XeCl  excimer  laser  at  308  nm  pumping  a 
Lambda  Physik  dye  laser  (FL-3002E),  and  INRAD  autotracker  for  frequency  doubling; 
and  a  Lambda-Physik  (Lextra  200)  air-cooled  XeCl  laser  pumping  a  single  stage  dye  laser 
(FL-3001).  Of  the  three  pump  lasers,  the  Nd:YAG  laser  was  the  only  laser  in  which  its 
fundamental  and  frequency-doubled  output  were  utilized  without  dye  lasers. 

The  Nd:  YAG  is  a  solid  state  laser  medium  which  is  optically  pumped  with  krypton 
flashlamps  whose  output  matches  the  principle  absorption  bands  in  the  red  and  near  IR  of 
the  Nd^^  ion.  The  output  of  the  fundamental  at  1064  nm  has  a  linewidth  of  less  than  1 
cm"'  and  a  beam  divergence  less  than  0.5  mrad.  A  KD*P  crystal  was  used  for  generating 
532  and  355  nm  output.  Separating  the  fundamental  from  the  frequency  doubled  or 
tripled  output  was  accomplished  with  a  prism  harmonic  separator  as  shown  in  Figure  3.7. 
Since  the  laser  output  traversed  20  foot  to  the  sample  chamber,  a  Gaussian  beam 
expander  was  utilized  to  collimate  the  beam  to  minimize  divergence  and  power  loss.  The 
beam  expander  consisted  of  a  negative  lens  followed  by  a  positive  collimating  lens. 

The  three  laser  systems  in  this  dissertation  were  used  to  pump  dye  lasers.  All  three 
dye  lasers  contained  a  Littrow  type  oscillator  with  a  grating  angle  of  42.5°  to  72.5°  and 


Figure  3.7:  Prism  Harmonic  Separator  (PHS)  for  Separating  and 
Isolating  Nd:YAG  Laser  Output 
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intracavity  etalons  as  shown  in  Figure  3.8.  The  dye  lasers  could  be  operated  in  the  low 
resolution  mode  (Av=2.0  cm"' )  or  high  resolution  mode  (Av=0.04  cm  ' )  with  the  etalon. 
Only  the  Lambda  FL3002E  had  an  electromechanical  drive  for  simultaneous  angle  tuning 
of  the  grating  and  etalon.  In  order  to  achieve  high  resolution  mode  with  the  other  two 
dye  lasers  (PDL-1  and  FL3001),  pressure  tuning  of  the  oscillator  cavity  was  employed. 
Pressure  tuning  works  by  changing  the  refractive  index  of  the  pressure  box  containing  the 
grating  and  etalon.  Since  these  tuning  devices  utilize  multiple  interference,  the 
wavelengths  change  by  the  amount  dA,=A,Q(n-l)  x  dP  where  n  is  the  refractive  index  of 
the  gas,  and  dP  is  the  change  in  pressure  of  the  tuning  chamber.  Dry  nitrogen  with  a  n-1 
value  of  3x10"^  was  slowly  leaked  into  the  pressure  box.  Pressure  tuning  from  vacuum  to 
atmosphere  provided  a  3.5  cm"'  scan  range  with  the  wavelength  changing  to  the  red. 

§3.3.4  Experimental  Apparatuses 

For  the  purposes  of  this  dissertation,  pump  refers  to  the  photon  which  is  absorbed 
by  a  molecule  in  a  single  thermally  populated  level  in  the  ground  electronic  state  and 
populates  an  electronically  excited  level  in  a  well-resolved  quantum  state.  Dump  refers  to 
the  photon  which  stimulates  emission  back  into  the  ground  electronic  state.  Probe  refers 
to  the  absorption  of  a  photon  from  the  state-prepared  or  collisionally  populated  level  in 
the  ground  electronic  state  to  a  resonant  quantum  level  in  an  electronically  excited  state. 

A  typical  SEP  experiment  uses  a  dual-beam  arrangement  to  compensate  for 
pulse-to-pulse  variations  in  laser  intensity.  The  pump  beam  is  split  into  equal-intensity 
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mirror 


Figure  3.8:  Schematic  of  (top)  Littrow  Configuration  Dye 

Oscillator  and  (bottom)  Pressure  Tuning  Apparatus 
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signal  and  reference  beams  through  a  common  sample  cell.  The  signal  is  a  depletion  of 
the  side  fluorescence  in  the  sample  cell  as  the  dump  laser  is  scanned  across  a  downward 
transition.  The  decrease  in  side  fluorescence  is  due  to  an  increase  of  stimulated  emission 
propagating  along  the  axis  of  the  dump  beam.  Matched  photomultipliers  detect  side 
fluorescence  in  both  signal  and  reference  cells.  The  outputs  are  fed  to  a  fast  differential 
amphfier,  the  reference  fluorescence  is  subtracted  from  the  sample  signal  which  generates 
a  null  in  the  absence  of  downward  resonant  transitions. 

In  cases  where  the  pump  transition  was  saturated,  the  fluorescence  signal  in  the 
absence  of  the  dump  laser  is  proportional  to  0.5  times  the  total  number  of  molecules  in 
the  selected  quantum  state,  0.5N.  When  the  dump  transition  is  saturated,  then  '4  of  the 
molecules  will  be  in  each  of  the  three  levels,  so  that  the  fluorescence  signal  is 
proportional  to  ^4.  The  fluorescence  dip  at  the  saturation  limit  is* 

_  1 

0.5N  3 

The  experiments  conducted  in  this  dissertation  utilized  the  folded  triple  resonance  of 
stimulated  emission  pumping-laser  induced  fluorescence  (SEP-LIF).  A  typical 
experimental  setup  for  SEP-LIF  is  shown  in  Figure  3.9.  Ideally,  the  pump  laser  populates 
a  single  rovibronic  level  of  an  excited  electronic  state  where  the  pump  laser  locks  onto  a 
single  rotational  line  of  the  B<r-X  system.  A  second  laser,  the  dump,  was  tuned  through 
resonance  onto  a  transition  terminating  on  a  rovibrational  level  in  the  ground  electronic 
state.  The  dump  laser  is  locked  onto  a  single  rotational  line  of  a  B^X  transition  which 
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Figure  3.9:  Typical  Experimental  Setup  for  SEP-LIF  (Stimulated 
Emission  Pumping-Laser  Induced  Fluorescence) 
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stimulated  emission  to  the  selected  state.  The  of  iodine  is  subject  to  both 
spontaneous  and  collision-induced  predissociation.  As  a  result  of  the  curve  crossing 
between  the  repulsive  and  bound  states,  the  effective  spontaneous  lifetime  of  the  excited 
levels  and  their  dependence  on  diluent  gas  pressure  are  complicated  and  vary  widely  for 
different  vibrational  levels.® 

A  third  laser,  the  probe,  was  tuned  to  a  third  resonance  from  the  SEP  prepared 
state  to  an  emitting  electronic  state.  Calculating  the  ground  state  populations  can 
sometimes  be  complicated  by  the  fact  that  species  can  be  transferred  into  or  out  of  the 
laser  excited  upper  level  through  collisions  with  other  atoms  or  molecules  (aka 
Franck-Condon  pumping).  In  these  experiments,  the  probe  was  tuned  between  resonant 
transitions  in  the  X  state  to  the  Ij  T>(0\)  ion-pair  state  due  to  the  numerous  advantages 
of  this  system.  The  D-X  transition  is  more  intense  than  the  B-X,  the  short  D  state  lifetime 
circumvents  problems  associated  with  quenching  of  the  monitored  fluorescence,  and  the 
D-X  emission  occurs  at  wavelengths  well  removed  from  the  scattering  and  fluorescence 
associated  with  the  SEP  pump  and  dump  pulses.  In  detection  of  the  D-^X  fluorescence, 
a  useful  property  of  the  bound-free  region  of  this  system  was  exploited.’®  All  bound 
vibrational  levels  of  the  D  state  have  strong  transitions  to  the  X  state  continuum  region. 
Due  to  the  occurrence  of  a  maximum  in  the  Mulliken  difference  potential,  the  most 
intense  bound-free  emission  appears  at  321  nm,  regardless  of  the  D  state  vibrational 


level." 
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Wavelength  resolved  fluorescence  excitation  spectra  were  collected  by  fixing  the 
monochromator  at  321  nm.  The  pump  and  dump  lasers  would  be  tuned  to  resonant 
transitions  for  preparation  of  the  vibrationally  excited  state.  The  parent  (initially  prepared 
level)  and  satellite  (collisionally  populated  levels)  were  then  scanned  with  iheprohe  laser. 
The  state  prepared  level  was  selectively  monitored  on  a  nanosecond  time  scale.  In  all 
three  experiments,  fast  silicon  photodetectors  (Electro-Optics  ET2000)  were  measured 
the  delay  between  the  dump  and  probe  lasers.  The  nominal  delay  between  thtpump  and 
dump  laser  was  20  ns. 

The  transition  frequencies  for  the  three  SEP-LEF  experiments  conducted  for  this 
dissertation  are  listed  in  Table  3.1.  The  three  vibrational  levels  selected  for  study  by 
SEP-LIF  in  this  dissertation,  v"=42,  38,  and  23,  are  consistent  with  the  range  of 
vibrational  levels  proposed  as  an  iodine  intermediate  before  its  dissociation  in  the  COIL 
device.  Section  §3.3.4. 1  details  the  experimental  preparation  of  I2  {X,  v"=42,  Ji=17).  This 
level  was  chosen  as  it  is  in  the  upper  range  of  vibrational  levels  populated  by  l2+I(^Pi/2) 
and  I2+02(*A).  Section  §3. 3. 4.2  describes  the  second  SEP-LIF  experiment  which 
prepared  I2  {X,  v"=38,  J,=49)  for  study  by  excitation  to  l2(L>;v'=5-12).This  transition  was 
chosen  because  the  1064  nm  fundamental  fi’om  the  NdiYAG  was  resonant  with  a 
rovibrational  level  in  I2  (X;  v"=38).  Section  §3 .3.4.3  discusses  the  third  SEP-LBF 
experiment  which  prepared  I2  (X,  v''=23,  Ji=57)  for  study  by  excitation  to  I2 
(D;v-30-37).  This  vibrationally  prepared  state  corresponds  with  the  lower  range  of 
vibrational  levels  for  which  it  is  energetically  possible  to  dissociate  I2  by  one  02(’A)  or 
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Table  3.1:  Transition  Frequencies  for  SEP-LIF  Energy  Transfer  Studies 


V  (nm) 

v(cm') 

electronic 

transition 

vibrational 

transition 

rotational 

transition 

v''=42 

Pump 

514.71 

19,428.42 

B-X 

43-0 

R(15)+P(13) 

Dump 

857.9 

11,656.37 

B-X 

43-42 

P(17) 

Probe 

o 

o 

cn 

S 

*33,333 

D-X 

6-42 

v"=38 

Pump 

620.45 

16,117.15 

B-X 

7-2 

R(47)+P(41) 

Dump 

1,064.55 

9,393.64 

B-X 

7-38 

P(49) 

Probe 

*290 

*34480 

D-X 

8-38 

v"=23 

Pump 

569.64 

17,767.97 

B-X 

19-1 

R(55) 

Dump 

756.16 

13,189.76 

B-X 

19-23 

P(57) 

Probe 

*253 

*39,525 

D-X 

23-34 
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one  ICP1/2)  atom.  Inelastic  collisions  were  investigated  and  kinetic  rates  were  determined 
by  measuring  the  fluorescence  intensities  from  the  initially  prepared  and  collisionally 
populated  levels  as  a  function  of  the  delay  between  the  dump  and  probe  lasers. 

§3.3.4.1  SEPv"=42 

The  experimental  apparatus  consisted  of  three  pulsed  dye  lasers  operating  at  10  Hz 
repetition  frequency.  The  pump  dye  laser  (Lambda  Physik,  Coumarin  500  dye,  25  mJ) 
was  excited  by  a  XeCl  excimer  laser  at  308  nm.  In  order  to  extend  the  half-life  of  the 
Coumarin  dye,  DABCO  (triethlylene  diamine  or  1,4  Diazobicyclo[2.2.2]octane)  was 
added  to  the  dye  ( 0.07  m/1).'^  The  addition  of  DABCO  extends  the  life  of  blue  dyes 
(nominally  8  hrs)  by  a  factor  of  three.  The  dump  dye  laser  (Quanta-Ray  PDL-1,  LDS  867 
dye,  5  mJ)  was  pumped  by  the  second  harmonic  of  a  Quanta-Ray  DCR-3  Nd:  YAG  laser 
at  532  nm.  The  probe  laser  (Quanta-Ray  PDL-2,  R610  dye,  7  mJ)  also  was  pumped  by 
the  second  harmonic  of  a  Quanta-Ray  DCR-2  Nd;YAG  laser.  The  output  of  theprofte 
pulse  dye  laser  was  doubled  by  a  KD*P  crystal  in  a  Quanta-Ray  WEX-1  wavelength 
extender.  The  laser  outputs  were  calibrated  by  a  Burleigh  WA4500  pulsed  wavemeter 
with  an  accuracy  to  0.02  cm'*.  The  output  of  the  three  lasers  were  then  directed  through 
the  iodine  cell. 

The  iodine  cell  was  constructed  of  Pyrex  glass,  approximately  35  cm  long  with 
brewster  angled  quartz  windows  (**56°),  and  externally  blackened  Wood's  horn  located  at 
each  end.  Iodine  crystals  were  placed  in  a  cold  finger  located  in  the  bottom  of  the  Pyrex 
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cell.  Gas  pressure  was  monitored  with  a  MKS  10  Torr  capacitance  manometer.  For 
measurements  of  Ij  self-transfer,  vapor  in  equilibrium  with  crystalline  solid  at  room 
temperature  was  used  (**287  mTorr).  For  studies  of  transfer  caused  by  other  collision 
partners,  the  pressure  was  reduced  by  cooling  the  Ij  crystals  located  in  a  cold-finger  to 
0°C  with  an  ice  bath.  Iodine  vapor  pressure  as  a  fimction  of  temperature  can  be  obtained 
fi-om  the  following  relationship'^ 

Log  P  =  12. 1891  -  0.001301T  -  0.3523  Log  T  -  (3410.71  /T) 

where  P  =  pressure  (Torr) 

T  =  temperature  (°K) 

Diluent  gas  pressures  in  the  0.5-1  Torr  range  were  used  to  ensure  that  collisions  with  the 
bath  gas  dominated  and  that  the  time  scale  for  energy  transfer  was  short  compared  to  the 
rate  at  which  molecules  difiused  out  of  the  probe  laser  beam  (**1  mm). 

The  delay  between  the  dump  and  probe  laser  pulses  was  controlled  by  a  precision 
pulse  generator  (SRS  DG535).  The  Stanford  Research  Systems  pulse  generator  was 
initiated  by  an  external  trigger  from  the  dump  laser  and  could  be  programmed  for  any 
delay  interval  between  0  and  1000  s  with  5  ps  of  resolution  and  jitter  of  less  than  50  ps. 

The  pump  laser  was  tuned  to  the  B<-X,  43-0,  R(15)  line  at  514.7  nm.  An 
intracavity  air  spaced  etalon  was  used  to  obtmn  a  pump  laser  linewidth  of  AVp  **0.07  cm'. 
The  dump  laser  was  tuned  through  resonance  and  stimulated  the  B—>X,  43-42,  P(17)  line 
at  858.9  nm.  The  energy  spacings  between  allowed  dump  transitions  were  sufficient  to 
permit  clean  single  state  preparation  when  the  dump  laser  was  operated  without  an  etalon 
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(Avj3  **0.2).  A  dichroic  mirror  (transmit  514  nm,  reflect  850  nm)  combined  the  pump  and 
dump  beams  for  copropagation  through  the  sample  cell.  The  probe  beam  was 
counterpropagated  through  the  sample  cell  coincident  with  the  pump  and  dump  laser 
beams.  Wavelengths  from  295-300  nm  probed  the  highly  vibrationally  excited  state  by 
interrogation  of  the  prepared  and  collisionally  populated  levels  via  the  D<-X  transition. 
Sampling  with  the  probe  laser  in  both  high  (0.08  cm  ’ )  and  low  (0.4  cm"’ )  resolution 
scans  was  obtained  by  pressure-tuning  of  the  air-spaced  etalon  and  mechanical  tuning  by 
grating  rotation,  respectively.  With  the  narrower  linewidth,  power  broadening  of  the 

lines  was  frequently  observed.  A  variable  attenuator  was  used  to  reduce  the  power 
to  levels  that  did  not  cause  measurable  broadening. 

Wavelength  resolved  fluorescence  excitation  spectroscopy  was  used  exclusively  in 
this  experiment.  A  0.3  m  monochromator,  set  to  transmit  a  2  nm  wide  band  centered  at 
321  nm,  was  used  to  monitor  the  probe  laser  fluorescence.  This  scheme  eliminated 
interference  from  scattered  laser  light  and  fluorescence  resulting  from  the  pump  or  dump 
pulses.  However,  an  unexpected  complication  was  encountered.  The  probe  laser  also 
excited  the  transition  via  pump/probe  optical-optical  double  resonances 

(OODR).  The  bound-free  emission  of  the  /->5  system  is  also  maximized  around  320  nm, 
so  this  interference  could  not  be  removed  by  wavelength  selected  fluorescence  detection. 
In  a  few  instances  the  OODR  spectra  were  used  to  compare  the  B  and  X  state  energy 
transfer  dynamics. 
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Fluorescence  signals  were  detected  by  a  photomultiplier  (Burle  C31034)  and 
recorded  by  a  boxcar  integrator  (SRS  250).  For  low  resolution  scans,  the  output  from 
the  boxcar  was  collected  and  stored  in  a  personal  computer  using  the  program 
SCANNER.  High  resolution  scans  were  recorded  on  X-Y  stripchart  recorder,  with  the  Y 
axis  representing  the  signal  output  from  the  boxcar  and  the  X  axis  being  the  output  of  the 
pressure  transducer  from  the  probe  laser's  oscillator  cavity. 

§3. 3. 4.2  SEPv"=38 

Figure  3.10  shows  a  schematic  diagram  of  the  apparatus  used  in  preparing  v"=38. 
This  SEP-LIF  experiment  prepared  IjCY;  v"=38)  for  subsequent  analysis  by 
Ij  (D;  v'=5  to  12).  A  single  Nd: YAG  (Quanta  Ray  DCR-2)  operating  at  20  Hz  was  used 
to  generate  both  the  pump  and  dump  laser  pulses.  The  pump  laser  was  the  frequency 
doubled  Nd:YAG  output  at  532  nm  which  pumped  a  dye  laser  (PDL-1)  that  was  tuned  to 
the  B<-X,  7-2,  R(47)  line  at  620.46  nm.  The  dye  laser  grating  operated  fourth  order  at 
24819  with  a  sulforhodamine  640  dye.  An  intracavity  air-spaced  etalon  produced  a  pump 
laser  linewidth  of  AVp  »0.04  cm  '.  The  Nd;YAG  fundamental  was  isolated  in  the  prism 
harmonic  separator  (PHS)  stimulating  emission  of  the  B—^X,  7-38,  P(49)  line  at  1064.55 
nm.  After  expanding  the  fundamental  beam,  an  optical  path  temporally  delayed  the 
dump  beam  10  ns  after  the  pump  laser.  Due  to  the  long  distance  that  the  dump  beam  was 
required  to  traverse  (25  ft),  a  Gaussian  beam  expander  was  employed  to  maintain  beam 
integrity.  With  the  relatively  high  power  (60  mJ/pulse)  being  utilized,  the  fundamental 
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beam  was  enclosed  in  3 -inch  diameter  PVC  tubing.  With  the  dump  beam  being  invisible, 
an  infrared  display  card  was  used  for  alignment,  monitoring  beam  shape  and  size,  and 
detecting  Fresnel  back  reflections  fi’om  the  optics.  A  plano-convex  lens  with  a  1000  mm 
focal  length  focused  the  fundamental  beam  into  the  sample  chamber. 

The  probe  laser  was  a  Lambda-Physik  (FL3002E,  R6G)  dye  laser  operating  with 
an  intra-cavity  etalon.  The  output  of  the  dye  laser  was  frequency  doubled  by  continuously 
matching  the  KDP  phase  angle  with  an  autotracker  as  the  probe  laser  was  scanned. 
Absolute  wavenumber  calibration  of  the  probe  laser  was  achieved  by  directing  a  portion 
of  the  fundamental  beam  through  an  cell  and  simultaneously  recording  the  B-X 
absorption  spectra.  Wavenumbers  for  the  lines  were  taken  fi'om  the  iodine  atlas  of 
Gerstenkom  and  Luc.’’  A  dichroic  mirror  combined  the  pump  and  probe  beams 
counterpropagating  to  the  dump  beam  in  the  sample  chamber.  Once  again,  conditions 
were  determined  under  which  difiusion  effects  out  of  the  probe  beam  did  not  influence 
the  results.  Ideally,  making  the  probe  beam  substantially  larger  than  the  dump,  and  in 
turn,  both  larger  than  the  pump  would  have  eliminated  any  concern.  However,  this  was 
not  feasible  with  our  experimental  apparatus. 

The  delay  between  laser  pulses  was  measured  by  a  fast  silicon  photodetector  with 
a  rise  time  of  less  than  200  ps.  Since  the  wavelength  range  of  the  photodetector  was  fi’om 
350  to  1 100  nm,  recording  the  probe  pulse  required  removing  the  Schott  UV  transmitting 
black  glass  filter  and  measuring  the  delay  with  the  undoubled  laser  output.  The  delay  for 
each  scan  was  captured  by  the  100  Mhz  transient  digitizer.  The  output  was  recorded  on 
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an  HP7404  plotter  using  the  67GiV^F  program.  The  delay  was  then  calculated  by 
measuring  the  distance  (channels)  between  peaks  and  multiplying  the  channels  by  10 
(each  channel  represented  a  10  ns  segment).  Delay  between  the  dump  probe  pulses 
was  controlled  as  shown  in  Figure  3.11. 

In  finding  a  pump  level  which  was  resonant  with  the  dump  Nd:  YAG  fundamental, 
an  extensive  survey  of  R-lines  surrounding  1064. 1  nm  (literature  value  for  line  center) 
was  undertaken.  Even  with  the  broad  fundamental  linewidth  of  Av^  “1 .0  cm  ' ,  the 
search  for  resonant  transitions  was  non-trivial.  In  order  to  speed  the  quest,  vibrationally 
excited  ipC)  was  prepared  by  + 1*  energy  transfer  (see  Chapter  4).  The  Nd:YAG 
fundamental  pumped  the  vibrationally  excited  iodine  and  dispersed  fluorescence  spectra 
were  recorded.  The  results  of  this  search  are  shown  in  Figure  3.12.  The  information 
provided  in  this  spectrum  was  twofold.  First,  it  provided  positive  conformation  that  a 
resonant  transition  with  the  Nd:  YAG  fundamental  existed  between  the  vibrationally 
excited  levels  of  the  ground  state  and  Ij.^.  Second,  a  rough  approximation  on  which 
vibrational  transitions  to  probe  was  obtained. 

The  line  center  for  our  Nd:YAG  DCR-2  was  approximately  1064.55  nm.  There 
are  sbc  resonant  transitions  possible  with  this  line-center  (cf  Table  A.1)  As  a  point  of 
interest,  W.  Ubachs  et  al.'®  used  a  frequency-doubled  Nd:  YAG  for  studying  the  E{Q*) 
ion-pair  state  of  iodine.  They  reported  a  line  center  of  18788.39  cm '  (1064.49  nm 
fundamental)  using  a  Quanta-Ray  GCR-3  injection  seeded  Nd:YAG  laser. 


81 


BNC  Pulse  Generator 


Figure  3.11:  Delay  Pulse  Generator  for  Two  Laser  Triggering 
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In  first  detecting  the  SEP-LIF  signal,  the  pump  laser  of  the  SEP-LIF  apparatus  was 
pressure  scanned  onto  successive  R-lines  of  the  B-X  absorption  spectrum  while  the 
probe  laser  was  scanned  until  a  SEP  signal  was  observed.  Pressure  tuning  o^Xh.Qpump 
laser  onto  the  resonant  line  was  accomplished  in  conjuction  with  the  LASER  program, 
which  monitored  the  cavity  pressure  and  the  Ij  B-X  absorption  signal.  The  pump  laser 
was  pressure  tuned  onto  resonance  by  slowly  increasing  cavity  pressure  until  the  desired 
wavelength  was  reached  as  indicated  by  the  Ij  B-X  absorption  spectrum  while  the 
monochromator  fixed  at  634  nm.  The  B-X  absorption  spectra  with  the  pump  transition 
labeled  is  shown  in  Figure  3.13. 

However,  while  the  cavity  was  locked  on  the  appropriate  frequency,  the  pressure 
cavity  box  of  PDL-1  slowly  leaked  and  the  frequency  of  the  pump  laser  drifted.  Efforts 
were  made  to  adjust  the  grating  and  tilt  angle  of  the  etalon  to  ambient  conditions  as  much 
as  possible.  In  addition,  a  ballast  task  was  added  to  the  pressure  system  to  reduce 
fluctuation  inside  the  cavity.  But  the  pump  laser  still  required  retuning  after 
approximately  four  scans.  In  order  to  determine  if  the  pump  laser  could  be  operated 
without  an  etalon,  scans  were  made  with  and  without  the  etalon  as  shovra  in  Figure  3.14. 
The  proximity  of  other  near-coincident  resonant  transitions  required  the  narrower 
line-width  provided  by  the  etalon  and  pressure  tuning,  so  the  pump  laser  was  retuned  as 
required.  After  tuning  the  two  lasers  to  resonance,  the  monochromator  was  set  at  328  nm 
and  the  SEP-LIF  spectra  recorded. 


Spectrum  of  I2  B<r-X,  v"=2  Obtained  Through  Pressure 
ng  the  Pump  Pulsed  Dye  Laser. 


289.2 


289.8 


289.5 

Wavelength  (nm) 

Figure  3.14:  Comparison  of  Low  Resolution  SEP  Spectra  with 
D-X  and  f-B  transitions  Showing  Effects  of  the 
Pump  Laser  (a)  With  and  (b)  Without  Etalon. 
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§3. 3. 4.3  SEPv"=23 

The  experimental  apparatus  for  stimulated  emission  pumping  of  v"=23  is  shown 
in  Figure  3.15.  The  pump  dye  laser  (Lambda  Physik  Lextra  200,  FL3001,  R560)  was 
tuned  to  the  B<^X,  19-1,  R(55)  line  at  569.63  nm.  The  dye  laser  was  utilized  with  an 
intracavity  etalon  and  pressure-tuning  to  achieve  a  pump  laser  linewidth  of  AVp  »0.04 
cm-'.  The  dump  dye  laser  (Quanta  Ray  DCR-2,  PDL-1,  LDS  751)  stimulated  emission  of 
the  B-^X,  19-23,  P(57)  line  at  758. 16  nm.  The  probe  dye  laser  (Lambda  Physik 
EMG-101,  FL3002E,  C500  with  0.07  m/1  DABCO)  observed  D-X  hnes  originating  from 
the  initially  prepared  and  collisionally  populated  levels.  The  output  of  the  probe  laser  was 
doubled  by  a  BBO  crystal  whose  phase  matching  angle  was  continuously  tuned  with  an 
autotracker.  A  Schott  UV  transmitting  black  glass  filter  separated  the  fundamental  dye 
laser  from  the  frequency  doubled  output.  A  dichroic  mirror  combined  \\iQpump  and 
dump  beams  counterpropagating  to  the  probe  beam.  The  three  laser  beams  were  aligned 
(overlap)  in  the  iodine  chamber  for  maximum  signal  intensity.  Delay  between  Xhspump, 
dump,  and  probe  pulses  was  controlled  by  a  convoluted  triggering  apparatus.  Since  both 
Lambda-Physik  excimer  lasers  required  a  triggering  pulse  1-1.2  ps  before  firing,  the  flash 
lamp  sync  output  of  the  Nd:YAG  laser  provided  the  initial  trigger.  A  BNC  pulse 
generator  was  used  to  delay  the  flash  lamp  sync  output.  After  triggering  the  excimer 
lasers,  the  Q  switch  would  be  triggered.  The  laser  light  pulse  followed  50  ns  after  the 
Q-switch  trigger.  Figure  3.16  gives  the  schematic  of  the  delay  pulse  generator  for  three 
laser  operation. 
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Figure  3.16:  Delay  Pulse  Generator  for  Three  Laser  Triggering 
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The  pump  laser  grating  was  set  to  562.98  nm.  With  the  monochromator  fixed  at 
601  nm,  the  wavelength  resolved  fluorescence  spectrum  was  obtained  by  pressure 
scanning  the  pump  laser  and  is  shown  in  Figure  3.17.  The  etalon  was  aligned  and  the 
grating  was  pressure-tuned  onto  resonance  by  slowly  increasing  cavity  pressure  until  the 
desired  wavelength  as  indicated  by  the  I2  B-X  absorption  spectrum.  Using  the  LASER 
program  to  monitor  the  pressure  scan,  the  cavity  of  the  pump  dye  laser  was  locked  at  the 
appropriate  pressure. 

The  dump  dye  laser  was  pumped  by  the  Nd:  YAG  second  harmonic  at  532  nm  and 
the  grating  operated  third  order  at  22746  with  LDS  751  dye.  Due  to  the  long  distance 
that  the  dump  beam  was  required  to  traverse  (18  ft),  a  Gaussian  beam  expander  was 
employed  to  maintain  beam  integrity.  With  the  dump  and  pump  beams  combined,  the 
monochromator  was  fixed  at  3 19  nm  while  the  probe  dye  laser  was  tuned  to  resonance. 
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Chapter  4 

Reanaltsis  of  the  D-X  System  and  I*+  Ig  Energy  Transfer 

Chapter  4  examines  vibrationally  excited  in  which  the  vibrationally  excited 
molecule  was  prepared  either  in  a  free-jet  expansion  of  IjAr^  clusters  or  by  E-^V  energy 
transfer  between  l^QC)  +  ifPi/j).  Highly  excited  vibrational  levels  of  l2(X;  23<v"<48) 
were  prepared  by  energy  transfer  between 

l2(^  +  UX;  23<v"<48)  +  iCPy,) 

and  then  characterized  by  UV  excitation  to  the  D(0*J.  Analysis  of  this  data  revealed 
an  error  in  the  energy  predicted  from  the  spectroscopic  constants  for  the  low  vibrational 
levels  of  theD(0'’„)  ion-pair  state  of  approximately  2  cm'.  Improvement  of  theD(0\) 
state  spectroscopic  constants  was  necessary  before  any  reliable  population  distribution 
could  be  inverted  from  the  spectra.  For  example,  an  error  of  2  cm  '  would  mean  the 
difference  of  approximately  four  peaks  in  the  highly  congested  IjCA)  +  ICP,/2)  system. 
Therefore,  the  free-jet  expansion  experiment  was  undertaken  as  a  means  of  obtaining 
uncongested  Ij  D-X  data  for  spectroscopic  analysis.  Section  §4. 1  includes  improved 
spectroscopic  constants  for  1^(0^^)  as  well  as  the  analysis  of  the  data.  In  determining 
the  D(p*^)  constants,  all  applicable  spectroscopic  data  from  the  D-X  experiments 
performed  in  this  dissertation  were  included.  Section  §4.2  discusses  the 
photofragmentation  of  IjAr^  clusters  in  preparing  the  vibrationally  excited  level 
v"=40)  and  presents  the  analysis  and  results.  Section  §4.3  vividly  illustrates  the  necessity 
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of  accurate  spectroscopic  constants.  The  nascent  vibrational  distribution  of  ^{X)  + 
I(^Pj/2)  was  examined  using  pulsed  laser  photolysis  .  Rotationally  resolved  spectra  for  the 
D-X  system  were  recorded  producing  dense  spectroscopic  spectra.  The  density  of  states 
in  this  experiment  require  the  predictions  of  the  spectroscopic  constants  to  within  ±0.04 
cm"'  for  the  inversion  of  line  intensity  data. 

§4. 1  Spectroscopic  Constants  for  I2  D(0''J 

The  molecular  constants  of  Ishiwata  and  Tanaka’  were  reported  with  a  standard 
deviation  of  0.052  cm  ’  for  76  <v'<  124  and  0.31  cm*’  for  v'<76.  During  the  analysis  of 
the  l^iX)  +  lfPi/2)  energy  transfer  data  (Section  §4.3),  attention  was  drawn  to  the 
spectroscopic  constants  for  the  D(0"J  ion-pair  state  when  the  existing  electronic  term 
energy  and  vibrational  constants  did  not  accurately  predict  the  band  origins  of  transitions 
terminating  on  low  vibrational  levels  of  the  D(0^^)  state. 

The  large  mass  of  iodine  and  the  shallow  potential  energy  curves  of  the  ion-pair 
states  result  in  large  densities  of  discrete  levels.  The  profuse  profile  of  the  laser 
excitation  spectra  for  iodine  means  that  even  relatively  small  errors  may  lead  to 
erroneous  assignments.  Combination  differences  analysis  of  the  energy  transfer  spectra 
indicated  a  2  cm*’  discrepancy  for  the  low-lying  vibrational  levels  of  the  D  state.  The 
analysis  by  combination  differences  (AjF)  was  accomplished  using  the  following 
equations; 

AjF"  =  R(J-1)-P(J+1)  =  4B,^(J±l/2) 

A2F'  =  R(J)-P(J)  =  4B^(J±1/2) 
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Plotting  AjF  versus  J  gave  a  line  with  slope  4B^  passing  through  point  (0,-l/2).  While 
this  systematic  approach  for  the  rotational  analysis  confirmed  the  assignment  and 
accuracy  of  the  rotational  constants,  line  positions  were  not  in  agreement  with 
predictions.  In  order  to  improve  the  quality  of  the  fit,  vibrational  energies  using 
Ishiwata  and  Tanaka'  values  for  76  <v<  124  were  combined  with  our  data  at  low  v. 
Vibrational  term  energies  for  the  D  state  were  calculated  by  adding  the  ground  state 
vibrational  energies  to  the  fitted  band  origins.  Initially,  a  fifth  order  polynomial^  was  fit 
to  this  data  set  and  used  for  predicting  line  positions  in  the  energy  transfer  data. 
Numerous  Fortrat  parabolas  from  v— 5  to  9  were  generated  from  the  l2(^  I(  Pj/j) 
data.  However,  the  dense  rovibrational  structure  and  low  J  intensity  near  the  bandhead 
made  this  process  non-trivial.  An  example  of  a  successful  fit  of  the  energy  transfer  data 
to  the  Fortrat  parabola  is  shown  in  Figure  2.5. 

In  an  efibrt  to  improve  the  spectroscopic  ground  work,  first,  a  free-jet  expansion 
was  conducted  as  detailed  in  Section  §4. 1 .  Then  the  free-jet  and  energy  transfer  line 
position  data  were  combined  with  SEP-LIF  spectra.  Because  SEP-LIF  spectroscopy  is  a 
triple  resonance  method,  assignment  of  the  spectrum  is  greatly  simplified.  The  addition 
of  diluent  gases  produced  satellite  bands  induced  by  collisions  with  the  SEP  prepared 
level.  Assignments  of  the  collisionally  populated  lines  were  straightforward  due  to  the 
rigorous  even  AJ=±2n  selection  rule  for  transfer  between  the  levels  of  a  homonuclear 
diatomic.  Spectra  were  recorded  for  the  bands  for  (j!f;v"=38— >Z);4<v'<l  1)  and 
(X;v"=23^/);30<v'<37).  Line  positions  were  extracted  from  the  energy  transfer 
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spectra  and  the  band  origins  were  obtained  from  Fortrat  parabolas.  Table  4. 1  lists  the 
vibrational  energies  and  range  of  J  values  associated  with  these  measurements.  When 
sufficient  fine  positions  were  not  available,  I  simply  extracted  the  band  origins  using 
existing  rotational  constants.  This  procedure  was  necessary  for  v -1 1,  30,  3 1,  36  and  37. 
Band  origins  and  rotational  constants  were  also  obtained  by  fitting  the  line  positions  to 
the  expression 

v=Vo+B7(J'+l)-BV"(J"+l)  4.1 

(trial  fits  to  an  expression  that  included  the  centrifugal  distortion  constants  did  not  yield 
statistically  significant  values  for  these  parameters  for  J<60).  Once  again,  the  lower 
state  rotational  constants  were  found  to  be  in  good  agreement  with  those  obtained  by 
Bacis  et  al.^  and  Tellinghuisen  et  al.'*  As  these  studies  were  of  greater  precision  than  our 
measurements,  the  final  fits  to  Equation  4. 1  were  made  with  the  lower  rotational 
constants  fixed  at  the  values  given  by  Bacis  et  al.^ 

The  methodology  in  developing  an  improved  global  fit  for  the  ion-pair 

state  was  to  combine  our  analysis  from  the  energy  transfer,  free-jet,  and  SEP-LIF 
experiments  for  v -4  to  1 1  and  v -30  to  37  with  the  vibrational  energies  from:  Ishiwata 
and  Tanaka'  for  76  <v<  124;  Bartels  et  al.*  for  125  <v<  201;  and  Hoy  and  Lipson®  for 
202<v<  290.  A  least-squares  analysis  was  performed  on  the  combined  data  set  using 
the  matrix  formulation 


P=(X^WX)-‘X^Wy 
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Table  4.1:  Wavenumbers  (cm  ‘)  of  Vibrational  Energies  for 
I2  0(0^ J  Calculated  from  Fortrat  Parabolas  with 
Uncertainties,  and  Range  of  Measured  J  Values 


v' 

+5  (cm‘^) 

J 

4 

41451.971 

0.15 

23-55 

5 

41545.835 

0.13 

21-99 

6 

41639.559 

0.13 

19-87 

7 

41733.007 

0.14 

36-96 

8 

41826.277 

0.08 

7-90 

9 

41919.192 

0.13 

19-99 

10 

42011.985 

0.13 

23-61 

11 

42104.469 

0.14 

49 

30 

43810.369 

0.14 

57 

31 

43897.365 

0.14 

57 

32 

43984.051 

0.11 

33-63 

33 

44070.471 

0.09 

17-67 

34 

44156.549 

0.09 

17-95 

35 

44242.345 

0.11 

21-89 

36 

44327.845 

0.14 

57 

37 

44413.091 

0.14 

57 

“  Determined  by  adding  the  ground  state  vibrational  energies  of  Bads  et  al.^  to 


the  fitted  band  origins. 
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where  P  is  the  vector  of  m  parameters  to  be  estimated  (m  is  the  degree  of  the  polynomial 
fit),  W  is  the  weight  matrix,  X  is  the  n  x  m  matrix  of  independent  variables 
{(v+l/2)”}(n  is  the  number  of  variables  to  fit),  X'^is  the  transpose  of  X,  and  y  is  a  ID 
array  containing  the  vibrational  term  energies.  The  size  of  the  polynomial  expansion  was 
determined  by  increasing  the  order  until  the  lowest  standard  deviation  was  obtained.  The 
most  accurate  fit  was  achieved  with  a  seventh  order  pol5momial  (m=7).  W  was 
weighted  as  the  inverse  of  the  standard  deviation  squared.  The  results  are  presented  in 
Table  4.2  and  for  completeness,  I  have  included  Tanaka's  Dunham  rotational 
parameters.  The  solution  for  the  entire  matrix  formulation  presented  herein  is  provided 
in  Appendix  A.  The  molecular  constants  in  Table  4.2  were  used  to  construct  an  RKR 
potential  curve  for  v'=0  to  280  of  the  D(O^J  ion-pair  state  as  listed  in  Table  4.3. 

The  estimated  variance  is  obtained  by 


(y-XP)TW(y-XP) 

n-m 


The  estimated  variances  of  the  parameters  as  given  by  the  variance-covariance  matrix  is 

V=a"(X^WX)-' 

and  the  standard  deviation  of  parameter  P  can  be  obtained  as  Vv.  The  standard 
deviation  of  the  global  fit  is  0.362  cm  ‘ ,  while  the  standard  deviation  for  the  fit  from 
v'=0  to  124  is  0.032  cm'\  Statistical  errors  from  the  least-squares  fit  for  the  vibrational 
energy  and  the  residuals  for  the  new  D(0\)  constants  are  shown  in  Figure  4. 1 .  When 
the  new  term  energies  are  compared  with  the  energies  predicted  using  the  constants  of 
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Table  4.2:  Dunham  Parameters'^*^  of  the  D(0^„)  of  the  Ion-Pair  State  of  I2 


Yoo 

=z 

41026.166(291) 

Yio 

= 

95.11746327  (037) 

Y 

*20 

= 

-0.111495227  (001) 

Y30 

= 

-5.792874546x10-*^ 

Y40 

= 

4.205281828x10-" 

Y50 

= 

-1.408244378x10-* 

Y«, 

= 

2.68736882x10-“ 

Y 

*70 

= 

-2.3114805x10-*" 

Y 

*01 

= 

0.0207149(64) 

Y  •’ 

= 

-4.374(38)xl0-' 

Y  '* 
*21 

= 

-8.99(79)xl0-* 

Y  '* 

*31 

= 

6.58(48)xl0-*° 

Y 

*02 

= 

-4.93(27)xl0-" 

“  CoefiBents  are  based  on  gobal  refit  of  Ishiwata  and  Tanaka,  Laser  Chem.  7 ,79(1987) 
using  levels  of  v'=  74  through  124;  Bartels  et  al.,  J.  Chem.  Phys.  91,  12  (1989)  using 
data  for  levels  v-  125  through  201;  and  Hoy  and  Lipson,  Chem.  Phys.  140, 

187  (1990)  for  levels  v-  202  through  285;  with  data  from  SEP-LIF  experiments  for 
levels  V  -  4  through  1 1  and  v-  30  through  37. 

’’  Dunham  parameter  from  T.  Ishiwata  and  I.  Tanaka,  Laser  Chem.  1 , 79(1987). 

*=  The  rovibrational  energy  levels  are  determined  from  the  Dunham  polynomial 
expansion: 

Tvj  =  ZYric(v  +  i)“JHJ+l)‘* 

■Uc 
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Table  4.3 :  RKR  Potential  Curve  for  1^  D(0*J 


V 

T,(cm-') 

^min 

0 

47.54 

0.020693 

3.508 

3.658 

1 

142.43 

0.020649 

3.458 

3.717 

2 

237.10 

0.020605 

3.424 

3.759 

3 

331.53 

0.020561 

3.397 

3.794 

4 

425.73 

0.020516 

3.374 

3.825 

5 

519.69 

0.020472 

3.355 

3.853 

6 

613.41 

0.020427 

3.337 

3.880 

7 

706.86 

0.020382 

3.320 

3.904 

8 

800.12 

0.020337 

3.306 

3.927 

9 

893.09 

0.020292 

3.292 

3.950 

10 

985.83 

0.020246 

3.278 

3.971 

11 

1078.30 

0.020201 

3.266 

3.992 

12 

1170.52 

0.020155 

3.254 

4.012 

13 

1262.48 

0.020110 

3.244 

4.032 

14 

1354.18 

0.020064 

3.233 

4.051 

15 

1445.61 

0.020018 

3.223 

4.070 

16 

1536.78 

0.019972 

3.214 

4.088 

17 

1627.68 

0.019925 

3.204 

4.106 

18 

1718.32 

0.019879 

3.196 

4.123 

19 

1808.67 

0.019833 

3.187 

4.141 

20 

1898.76 

0.019786 

3.179 

4.158 

21 

1988.57 

0.019739 

3.171 

4.175 

22 

2078.11 

0.019693 

3.163 

4.192 

23 

2167.36 

0.019646 

3.156 

4.208 

24 

2256.34 

0.019599 

3.148 

4.225 

25 

2345.03 

0.019552 

3.142 

4.241 

26 

2433.44 

0.019505 

3.135 

4.257 

27 

2521.57 

0.019458 

3.128 

4.272 

28 

2609.41 

0.019410 

3.121 

4.288 

29 

2696.96 

0.019363 

3.115 

4.304 

30 

2784.22 

0.019316 

3.109 

4.319 

31 

2871.20 

0.019268 

3.103 

4.334 

32 

2957.88 

0.019221 

3.097 

4.350 

33 

3044.28 

0.019173 

3.091 

4.365 

34 

3130.38 

0.019126 

3.086 

4.380 

35 

3216.18 

0.019078 

3.080 

4.395 

36 

3301.70 

0.019031 

3.075 

4.409 

37 

3386.92 

0.018983 

3.069 

4.424 

38 

3471.84 

0.018935 

3.064 

4.439 

39 

3556.47 

0.018887 

3.059 

4.454 

40 

3640.79 

0.018840 

3.054 

4.468 

41 

3724.83 

0.018792 

3.049 

4.483 

42 

3808.56 

0.018744 

3.044 

4.497 

43 

3892.00 

0.018696 

3.040 

4.511 

44 

3975.13 

0.018648 

3.035 

4.526 

45 

4057.97 

0.018601 

3.030 

4.540 

46 

4140.50 

0.018553 

3.026 

4.554 

47 

4222.74 

0.018505 

3.022 

4.569 

48 

4304.68 

0.018457 

3.017 

4.583 

49 

4386.31 

0.018409 

3.013 

4.597 

50 

4467.64 

0.018361 

3.009 

4.611 

51 

4548.68 

0.018314 

3.005 

4.625 

52 

4629.41 

0.018266 

3.001 

4.639 

53 

4709.84 

0.018218 

2.997 

4.653 

54 

4789.98 

0.018170 

2.993 

4.667 

55 

4869.79 

0.018123 

2.989 

4.681 

56 

4949.32 

0.018075 

2.985 

4.695 

V 

T,(cm-‘) 

Bv(cm-‘) 

Bniii 

Rjiax 

57 

5028.54 

0.018028 

2.981 

4.709 

58 

5107.47 

0.017980 

2.978 

4.723 

59 

5186.09 

0.017932 

2.974 

4.737 

60 

5264.41 

0.017885 

2.970 

4.751 

61 

5342.43 

0.017838 

2.967 

4.765 

62 

5420.14 

0.017790 

2.963 

4.779 

63 

5497.56 

0.017743 

2.959 

4.792 

64 

5574.68 

0.017696 

2.956 

4.806 

65 

5651.50 

0.017649 

2.952 

4.820 

66 

5728.02 

0.017602 

2.949 

4.864 

67 

5804.24 

0.017555 

2.946 

4.848 

68 

5880.16 

0.017508 

2.943 

4.862 

69 

5955.78 

0.017461 

2.940 

4.875 

70 

6031.10 

0.017415 

2.936 

4.889 

71 

6106.13 

0.017368 

2.933 

4.903 

72 

6180.86 

0.017322 

2.930 

4.917 

73 

6255.29 

0.017275 

2.927 

4.930 

74 

6329.43 

0.017229 

2.924 

4.944 

75 

6403.27 

0.017183 

2.921 

4.958 

76 

6476.81 

0.017137 

2.918 

4.972 

77 

6550.06 

0.017091 

2.915 

4.986 

78 

6623.02 

0.017045 

2.912 

4.999 

79 

6695.68 

0.017000 

2.909 

5.013 

80 

6768.05 

0.016954 

2.906 

5.027 

81 

6840.13 

0.016909 

2.903 

5.040 

82 

6911.90 

0.016864 

2.900 

5.054 

83 

6983.41 

0.016819 

2.897 

5.068 

84 

7054.60 

0.016774 

2.895 

5.082 

85 

7125.53 

0.016729 

2.892 

5.096 

86 

7196.16 

0.016684 

2.889 

5.109 

87 

7266.50 

0.016640 

2.886 

5.123 

88 

7336.55 

0.016596 

2.884 

5.137 

89 

7406.32 

0.016551 

2.881 

5.151 

90 

7475.80 

0.016508 

2.878 

5.164 

91 

7545.00 

0.016464 

2.876 

5.178 

92 

7613.91 

0.016420 

2.873 

5.192 

93 

7682.53 

0.016377 

2.870 

5.206 

94 

7750.88 

0.016334 

2.868 

5.220 

95 

7818.95 

0.016291 

2.865 

5.234 

96 

7886.73 

0.016248 

2.863 

5.247 

97 

7954.24 

0.016205 

2.860 

5.261 

98 

8021.46 

0.016163 

2.858 

5.275 

100 

8155.08 

0.016079 

2.853 

5.303 

102 

8287.59 

0.015995 

2.843 

5.330 

104 

8419.01 

0.015913 

2.838 

5.358 

106 

8549.33 

0.015831 

2.833 

5.386 

108 

8678.58 

0.015751 

2.828 

5.414 

no 

8806.75 

0.015671 

2.824 

5.441 

112 

8933.85 

0.015593 

2.819 

5.469 

114 

9059.89 

0.015515 

2.814 

5.497 

116 

9184.88 

0.015439 

2.810 

5.525 

118 

9308.83 

0.015364 

2.833 

5.553 

120 

9431.75 

0.015290 

2.805 

5.581 

122 

9553.63 

0.015217 

2.800 

5.609 

124 

9674.51 

0.015145 

2.796 

5.637 

126 

9794.37 

0.015075 

2.791 

5.665 

128 

9913.23 

0.015006 

2.787 

5.693 

100 


Table  4.3 ;  RKR  Potential  Curve  for  Ij  D(0^J  (continued) 


V 

Tv(cm-‘) 

Bv(cm-‘) 

Bmjx 

V 

T,(cm-' ) 

Bmii. 

Bmx 

12S 

9913.23 

0.015006 

2.787 

5.693 

242 

15306.58 

0.014205 

2.438 

7.274 

130 

10031.10 

0.014938 

2.782 

5.782 

244 

15381.37 

0.014264 

2.429 

7.300 

132 

10147.98 

0.014872 

2.777 

5.749 

246 

15455.61 

0.014326 

2.419 

7.326 

134 

10263.89 

0.014806 

2.773 

5.777 

248 

15529.30 

0.014391 

2.410 

7.352 

136 

10378.83 

0.014743 

2.768 

5.805 

250 

15602.42 

0.014460 

2.400 

7.378 

138 

10492.81 

0.014681 

2.763 

5.834 

252 

15675.00 

0.014532 

2.390 

7.404 

140 

10605.84 

0.014620 

2.759 

5.862 

254 

15747.04 

0.014607 

2.380 

7.430 

142 

10717.94 

0.014560 

2.754 

5.890 

256 

15818.52 

0.014685 

2.370 

7.456 

144 

10829.09 

0.014503 

2.750 

5.918 

258 

15889.47 

0.014767 

2.360 

7.482 

146 

10939.33 

0.014446 

2.745 

5.947 

260 

15959.88 

0.014852 

2.350 

7.508 

148 

11048.65 

0.014392 

2.741 

5.974 

262 

16029.75 

0.014940 

2.339 

7.533 

150 

11157.06 

0.014339 

2.736 

6.003 

264 

16099.08 

0.015032 

2.328 

7.559 

152 

11264.57 

0.014288 

2.731 

6.031 

266 

16167.87 

0.015128 

2.317 

7.585 

154 

11371.20 

0.014238 

2.726 

6.060 

268 

16236.12 

0.015226 

2.306 

7.610 

156 

11476.94 

0.014190 

2.721 

6.088 

270 

16303.83 

0.015329 

2.295 

7.636 

158 

11581.82 

0.014144 

2.717 

6.116 

272 

16371.01 

0.015435 

2.283 

7.662 

160 

11685.82 

0.014099 

2.712 

6.144 

274 

16437.64 

0.015544 

2.272 

7.687 

162 

11788.98 

0.014057 

2.707 

6.173 

276 

16503.73 

0.015657 

2.259 

7.713 

164 

11891.28 

0.014016 

2.702 

6.201 

278 

16569.27 

0.015774 

2.249 

7.740 

166 

11992.75 

0.013977 

2.696 

6.229 

280 

16634.27 

0.015894 

2.236 

7.764 

168 

12093.39 

0.013940 

2.692 

6.257 

170 

12193.21 

0.013905 

2.686 

6.286 

172 

12292.21 

0.013872 

2.681 

6.314 

174 

12390.41 

0.013841 

2.676 

6.342 

176 

12487.82 

0.013812 

2.671 

6.370 

178 

12584.43 

0.013785 

2.665 

6.398 

180 

12680.27 

0.013760 

2.659 

6.426 

182 

12775.34 

0.013738 

2.654 

6.455 

184 

12869.64 

0.013717 

2.648 

6.483 

186 

12963.19 

0.013699 

2.642 

6.511 

188 

13055.99 

0.013682 

2.637 

6.539 

190 

13148.05 

0.013669 

2.631 

6.567 

192 

13239.39 

0.013657 

2.625 

6.595 

194 

13330.00 

0.013648 

2.619 

6.623 

196 

13419.89 

0.013641 

2.613 

6.651 

198 

13509.08 

0.013637 

2.606 

6.678 

200 

13597.56 

0.013635 

2.600 

6.706 

202 

13685.36 

0.013635 

2.594 

6.734 

204 

13772.47 

0.013638 

2.587 

6.761 

206 

13858.90 

0.013643 

2.580 

6.789 

208 

13944.66 

0.013651 

2.573 

6.817 

210 

14029.76 

0.013662 

2.566 

6.844 

212 

14114.21 

0.013675 

2.560 

6.872 

214 

14198.00 

0.013690 

2.552 

6.899 

216 

14281.16 

0.013709 

2.545 

6.926 

218 

14363.67 

0.013730 

2.537 

6.953 

220 

14445.56 

0.013754 

2.530 

6.980 

222 

14526.83 

0.013780 

2.522 

7.008 

224 

14607.48 

0.013810 

2.514 

7.034 

226 

14687.52 

0.013842 

2.506 

7.061 

228 

14766.96 

0.013877 

2.498 

7.088 

230 

14845.80 

0.013915 

2.490 

7.115 

232 

14924.05 

0.013956 

2.482 

7.142 

234 

15001.71 

0.014000 

2.473 

7.168 

236 

15078.78 

0.014046 

2.465 

7.195 

238 

15155.29 

0.014096 

2.456 

7.221 

240 

15231.22 

0.014149 

2.447 

7.248 

Residuals  (cm  ‘)  Deviation  (cm' ) 


102 


Ishiwata  and  Tanaka,  a  difference  of  0.29  cm  ’  is  noted  for  v'— 34.  This  difference 
increases  with  decreasing  v',  reaching  a  value  of  1.82  cm  ’  at  v-4. 


§4.2  Jet  Cooung  of  the  D-X System 

The  spectra  of  rotationally  cold,  vibrationally  excited  l2(Av-8'<-X,v"=40)  in  a 
free-jet  expansion  are  shown  in  Figures  4.2  and  4.3.  Free-jet  expansion  was  necessary 
because  of  the  congestion  of  the  vibrational  and  rotational  manifolds  made  assignments 
difficult  to  resolve  near  the  band  origin.  After  supersonic  expansion  of  the  gases  through 
the  nozzle,  photolysis  of  the  l^Ar^  cluster  ejected  vibrationally  excited  l2(-^  in  which  the 
rotational  structure  was  frozen  to  a  near  Boltzmann  distribution.  The  rotational 
contours  of  the  high  resolution  data  were  consistent  with  rotational  temperatures  of 
approximately  13°K  as  shown  in  Figure  4.4.  The  rotational  temperature  can  be 
calculated  using  the  approximation  that  the  fluorescence  intensity  (Ij)  is  proportional  to 


the  number  density  and  given  by 


2J+1 


c  =  speed  of  light  (2.9979x10’°  cm/sec) 
h  =  Planck's  constant  (6.626x10'^  J  sec) 

=  Rotational  constant  (v'(8)=0.02033  cm  ’) 
kg=Boltzmann  constant  (1.38062x10'^^  J  sec) 


A  plot  of  ln[Ij/  (2J+1)]  vs.  J(J+1)  produces  a  line  with  slope  -(B^c/kgTg)  from  which 
the  rotational  temperature  T^  can  be  determined.  Low  rotational  temperatures 
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2919.6  2919.7  2919.8  Wavelength  (A)  2920.0  2920.1  2920.2 

Figure  4.2:  Rotationally  Cold,  Vibrationally  Excited  Spectrum  of  l2(I>,v'=:8<-X,v"=40) 
in  a  Free-Jet  Expansion 
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2919.90  2920.05  2920.20  ,  2920.35  2920.50 

Wavelength  (A) 

Fig  4.3:  Spectrum  of  Vibrationally  Excited  l2(D,v'=8<-X,v"=40)  in  a  Free-Jet  Expansion 
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corresponding  to  a  relaxed  rotational  manifold  markedly  reduces  the  interference  from 
other  vibrational  bands.  Our  spectrum  shows  a  well-defined  band-head  with  a 
progression  of  P  and  R  branches.  The  most  notable  feature  of  this  spectrum  is  the 
readily  identifiable,  unambiguous  position  of  the  bandhead.  The  absolute  positions  are 
determined  from  the  calibration  spectrum  and  the  iodine  atlas  of  Gerstenkom  and  Luc.’ 
The  band  head  is  coincident  with  the  iodine  calibration  line  (line  961)  at  17125.4648 
cm  '.  Since  our  probe  laser  was  doubled,  the  band  head  position  was  calculated  at 
34250.93  cm  ' .  Band  origins  and  rotational  constants  were  obtained  by  fitting  the  line 
positions  to  the  expression 

v=v,, +  (B' 

The  plot  of  the  Fortrat  diagram  of  l2(Av-8<-A',v"=40)  from  the  line  positions  in  the 
free-jet  expansion  are  shown  in  Figure  4.5.  The  Fortrat  parabola  incorporates  line 
positions  from  both  the  free-jet  for  J<30  and  from  the  l^iX)  +  energy  transfer 
experiment  for  J>30.  While  the  rotational  constants,  B^  and  B^ ,  from  this  fit  were  in 
excellent  agreement  with  the  literature  (X  state,^  '*  D  state' ),  our  analysis  of  the  band 
head  location  with  the  literature's  vibrational  constant  revealed  a  difference  of  1.51  cm''. 
Molecular  constants  published  by  Ishiwata  and  Tanaka'  predicted  a  band  origin  at 
34,252.35  cm''  [A  typographical  error  in  Reference  5  incorrectly  gives  Yjg  as  a  positive 
value;  the  correct  value  is  ¥50=  -7.61x10'"].  Meanwhile,  the  analysis  of  our  experimental 
results  indicated  a  band  origin  at  34,250.82  cm  '  or  a  difference  of  1.53  cm  '. 
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Despite  the  obvious  success  of  the  ffee-jet  expansion  experiment,  there  were 
two  major  drawbacks  which  hindered  data  collection.  With  an  average  of 200  shots  per 
step,  each  scan  ( «4.4  cm'^ )  required  well  over  two  hours  to  collect  and  challenged  the 
performance  envelope  of  both  the  equipment  and  operator  alike.  Changes  in  alignment, 
laser  timing  drift,  and  plugging  of  the  1  mm  no2zle  provided  constant  challenges  in 
maintaining  signal  integrity.  In  addition,  the  relatively  weak  signal  and  the  optimal 
performance  required  for  all  equipment  and  operating  conditions  made  this  techmque 
arduous.  While  the  technique  of  SEP-LIF  was  primarily  intended  for  analysis  of  inelastic 
collisions,  it  also  proved  useful  in  completing  the  spectroscopy  for  the  low  vibrational 

levels  ofl2/)(v'<38). 

§4.3  I2  +  IpPi/2)  Energy  Transfer 

The  need  for  highly  accurate  spectroscopic  constants  is  illustrated  with  the 
spectra  for  I(^P,/2)  +  I2W  energy  transfer.  The  transfer  of  energy  between  I(^P,;2)  and 
produces  vibrationally  excited  iodine  through  electronic-to-vibrational  (E— >V) 
energy  transfer.  The  transfer  between  I(^P,/2)  and  \{X)  is  efficient  because  the 
interaction  is  strong  enough  to  break  down  the  diatomic  quantization.  But  the  distinction 
between  E->V  transfer  and  reactive  quenching  is  difficult  because  identical  atoms  are 
involved.  However,  based  on  the  large  rate  for  I2  quenching  by  if  P1/2)  and  the  poor 
match  of  electronic  and  vibrational  energies  (7603  cm'*  vs.  215  cm"'),  the  reactive  path 
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through  an  I3  intermediate  seems  more  likely.*  Vibrational  excitation  of  l2(A^  by 
through  near  resonant  transfer  is 

1(X^)  +  UX)  +  U^;23<V'<4S) 

This  E— >V  energy  transfer  process  was  initially  studied  by  G.  E.  Hall,  W.  J.  Marinelli, 
and  P.  L.  Houston,®  who  probed  the  vibrationally  excited  levels  by  Raman-shifting  the 
output  of  a  Nd;YAG  pumped  dye  laser  with  a  linewidth  of  0.6  cm  ’.  Their  experimental 
results  were  consistent  with  a  nascent  I2  product  distribution  which  is  inverted. 

However,  they  did  not  deduce  a  population  distribution  of  IjCY). 

Energetically,  IfPj/j)  is  7603  cm  ’  above  its  ground  state.  Resonant  energy 
transfer  between  and  l^iX)  generates  population  up  to  I2(A;v''=47).  A  schematic 
representation  of  this  energy  transfer  in  shown  in  Figure  4.6.  In  order  to  populate  the 
v"=44  level,  energy  transfer  must  occur  between  I*  and  l2(A,v"=l).  With  approximately 
64%,  23%,  and  8%  of  the  vibrational  populations  are  distributed  in  v"=0,  v"=l,  and 
v"=2,  respectively,  population  above  v"=40  is  easily  detected. 

The  alternating  intensity  of  the  rotational  distribution  is  a  result  of  the  symmetry 
restrictions  on  the  nuclear-spin  states.  In  a  homonuclear  diatomic,  the  total  wavefunction 
must  be  antisymmetric  with  respect  to  the  nuclear  interchange  if  the  nuclei  are  fermions. 
The  ground  electronic  state  of  iodine  is  symmetric.  Of  the  (21+1)^  possible  nuclear 
spin  states,  (2I+1)(I+1)  are  symmetric  and  (21+1)1  are  antisymmetric.  Iodine  is  a  fermion 
and  has  a  nuclear  spin  (I)  of  %  .  Then  of  the  36  possible  nuclear  spin  states,  21  are 
symmetric  and  15  are  antisymmetric.  In  order  to  maintain  an  overall  antisymmetric 


Energy(cm‘)xlO'^ 


no 


Figure  4.6:  Potential  Energy  Diagram  Illustrating 


Ill 


wavefunction,  the  even  J  states  (symmetric)  must  combine  with  odd  nuclear  spin  states 
(antisymmetric),  while  the  odd  J  states  (antisymmetric)  must  combine  with  even 
nuclear-spin  states  (S5mimetric).  Therefore,  the  odd  J  states  combining  with  the 
symmetric  nuclear  spin  states  have  a  weight  of  Vjj .  Likewise,  the  even  J  states 
combining  with  the  antisjmimetric  nuclear-spin  states  have  a  weight  of  Vjj.  Indeed,  a  7.5 
intensity  alternation  is  predicted  and  observed  for  l2(A^- 

The  inverted  calibration  curve  of  the  excitation  spectrum  of  iodine's  B<-X 
system  is  shown  at  the  top  of  the  spectrum.  Utilizing  the  Atlas  Du  Spectre  D’Aborption 
De  La  Molecule  D'Iode\  I  was  able  to  make  absolute  measurements  for  each  D'f-X 
line.  Assignment  of  two  bands  with  v"=37  and  38  are  shown  in  Figure  4.7. 
Approximately  one  calibration  point  per  wavenumber  was  utilized  to  ensure  accuracy  of 
the  spectral  linepositions.  The  convolution  of  the  numerous  vibrational  bands  did  not 
permit  inversion  of  the  line  intensities  directly  from  the  spectra.  Instead,  I  developed  a 
computer  model  for  simulating  spectra  based  on  the  number  density,  line  position  and 
fluorescence  signal  strength.  From  the  relative  weightings  of  the  vibrational  bands,  the 
nascent  vibrational  population  of  the  I(^P,/2)  +  k  energy  transfer  process  could  be 
inferred.  A  complete  listing  of  the  FORTRAN  code  (MS  FORTRAN  V5.0)  is  included 
in  Appendix  D. 

In  the  absence  of  predissociation,  the  LIF  signal  is  essentially  an  absorption 
spectrum.  The  fluorescence  signal  strength  (S^  .^,.)  for  a  v'v"  transition  is 
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288.00  288.03  288.06  288.09  288.12 

Wavelength  (nm) 

Figure  4.7:  Rotationally  Resolved  Excitation  Spectrum  for  I2  D-X 
Showing  Rotational  and  Vibrational  Energy  Transfer 
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(2J"+1) 


where  P^,  -  laser  power  pumping  the  v'  v"  transition 
N^.  -  I2  number  density  in  level  v" 

Sj,p,  -  rotational  line  strength  (Honl-London  factor) 
v^,^.  -  frequency  of  the  v'  v"  transition  (cm'* ) 
q^,^.  -  Franck-Condon  factor 
<R^>  -  average  of  the  transition  moment 
^  -  nuclear  spin  factor 


The  line  center  of  the  function  was  determined  using  the  molecular  constants  of  the 
D(O^J  state  presented  in  Section  §4.1  and  the  constants  of  Tellinghuisen  et  al.^' 
Many  of  the  bands  contained  rotationally  'hot'  lines  with  J>120.  This  complicated  the 
modeling  of  the  energy  transfer  due  to  the  lack  of  rotational  constants  for  the  D 
state.  While  the  error  without  the  constants  was  normally  on  the  order  of  0.06  to 
0.09  cm'',  the  spectra  was  dense  enough  that  this  small  of  error  could  shift  the 
population  to  the  surrounding  peaks.  The  width  of  the  Gaussian  lineshape  was  adjustable 
but  was  nominally  0.08  cm  '.  A  Lorentzian  lineshape  was  also  used  for  comparison.  The 
laser  power  and  frequency  of  transition  were  assumed  constant  within  each  15  cm  '  scan. 
Within  a  vibrational  level,  the  rotational  populations  were  partitioned  according  to  a 
thermal  Boltzmann  distribution 

=  (2J+l)exp(-hcBJ(J+l)/kT) 

Table  4.4  lists  the  rotational  temperatures  used  in  modeling  the  energy  transfer  spectra. 
The  rotational  temperatures  for  the  strongest  vibrational  bands  (typically  5-10  bands) 
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Table  4.4:  Rotational  Temperature  and  Relative  Intensity 
for  I2  +ICP1/2)  Energy  Transfer  Modeling 


v" 

Rotational 
Temperature  (°K) 

Relative 

Intensity 

26 

280 

0.2 

27 

280 

0.3 

28 

260 

0.3 

29 

270 

0.6 

30 

280 

1.3 

31 

280 

1.5 

32 

280 

1.2 

33 

360 

1.7 

34 

370 

1.4 

35 

380 

2.6 

36 

380 

3.2 

37 

310 

4.5 

38 

330 

4.5 

39 

310 

5.7 

40 

310 

5.9 

41 

310 

5.3 

42 

340 

4.9 

43 

330 

4.2 

44 

320 

3.5 

45 

298 

2.2 

46 

270 

2.5 

47 

278 

1.0 
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were  fixed  by  determining  for  that  level.  was  determined  for  a  vibrational  band 
by  visual  inspection  of  the  adjoining  spectra  and  locating  the  maximum  intensity  of  the 
band. 

For  the  rotational  line  strengths,  the  Honl-London  factors  appropriate  for  the 
'I-'I  transition,  S^=J  and  S'^J+l,  were  used.  Franck-Condon  factors  as  detailed  in 
Appendix  C  were  calculated  for  inclusion  into  the  simulation  package.  Relative 
intensities  of  the  vibrational  distribution  were  determined  using  computer  simulation  of 
the  experimental  spectra.  The  computer  simulation  source  code  is  contained  in  the 
subroutines  DXSIM,  DXSIMTWO,  and  DXONETIME  included  in  Appendix  D.  The 
simulation  would  draw  the  experimental  spectrum  and  overlay  the  simulation,  whose 
parameters  were  adjusted  an  adequate  representation  by  inspection  was  obtained.  Each 
spectra  was  then  divided  into  5  cm''  segments  and  the  relative  populations  adjusted  for 
best  fit.  The  vibrational  population  distribution  was  determined  by  fitting  15  cm'' 
segments  at  5  nm  increments  fi-om  270-300  nm.  The  5  nm  spacing  allowed  overlap  of 
three  to  five  vibrational  bands  and  provided  for  continuity  between  the  fitted  spectra. 
Generally,  the  PMT  voltage  and  chamber  pressure  were  consistent  throughout  the 
experiment.  Relating  the  intensities  of  spectra  taken  on  different  days  and  at  different 
wavelengths  was  accomplished  by  ensuring  common  overlap  of  over  half  of  the 
vibrational  bands.  Approximately  25  to  30  bands  were  fit  for  each  15  cm  '  segment  and 
the  relative  weight  and  rotational  temperature  adjusted  by  visual  inspection  for  best  fit. 
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Figure  4.8  shows  the  relative  nascent  vibrational  distribution  for  IfPi/j)  +  h  energy 
transfer. 

The  distribution  of  Figure  4.8  may  be  described  as  Lorentzian  with  a  maximum 
at  v"=40  and  insignificant  vibrational  population  above  v"=47.  Rotational  temperatures 
ranged  fi-om  280°K  (v"=46)  to  380°K  (v"=35).  The  vibrational  distribution  results  are 
consistent  with  those  of  Hall  et  al.^’***  who  observed  a  nascent  vibrational  distribution  as 
asymmetrically  shaped  with  a  peak  at  v''=40  and  half-maximum  points  at  v"=41  and 
v' -35.  M.  H.  van  Benthem  et  al."  obtained  a  bimodal  distribution  in  their  flow-tube 
experiments  of  02('A)  + 1^  with  v"^=  35.  These  results  of  van  Benthem  and  Davis  are 
compatible  considering  their  distribution  was  not  nascent  and  suggests  vibrational 
relaxation  was  occurring  before  the  measurement  was  recorded  at  a  fixed  position  0.5 
cm  downstream  of  the  I2  injector. 
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Figure  4.8:  Relative  Vibrational  Population  Distribution  for  I2  + 1  (^Py2) 
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Chapters 

Stimulated  Session  Pumping  v"=  42 


§5.1  Results 

Figure  5.1  shows  an  example  of  a  low  resolution  pump-dump-probe  spectrum, 
taken  for  pure  vapor  with  a  20  ns  delay  between  the  dump  and  probe  pulses.  Features 
belonging  to  the  D<r-X  and  f<r-B  transitions  are  evident  in  this  scan.  In  many 
experiments,  spectra  were  recorded  in  pairs;  one  with  the  dump  laser  present,  and  one 
with  the  dump  laser  blocked.  A  typical  pair  of  scans  can  be  seen  in  Figures  5. 1  (Ij  self¬ 
transfer)  and  5 .2  (Ij  +  He).  Interfering  OODR  features  were  then  removed  from  the 
pump-dump-probe  spectra  by  subtracting  the  two  laser  signal  {dump  blocked)  from  the 
three  laser  signal  (Figure  5.3a).  As  the  dump  laser  depleted  the  B  state  population,  a 
modest  scaling  of  the  OODR  spectrum  prior  to  subtraction  was  required.  Scale  factors 
in  the  range  of  0.90-0.98  were  typically  obtained  from  the  ratio  of  the  intensities  of  the 
strongest  OODR  peaks  with  and  without  the  dump  laser  present. 

At  high  resolution  each  D<r-X  peak  resolved  into  a  single  pair  of  P  and  R  lines  as 
seen  in  Figure  5.4,  demonstrating  clean  preparation  of  the  state  v"=42, 

Rotational  energy  transfer,  induced  by  self  or  bath  gas  collisions,  was  easily  observed  in 
the  high  resolution  scans.  Figure  5.5  illustrates  rotational  transfer  caused  by  collisions 
with  Ar.  The  high  resolution  scans  ranged  over  approximately  15  cm'*.  Two  features 
of  this  spectrum  are  worth  noting.  First,  only  levels  with  odd  J  values  are  observed,  in 
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Figure  5.1:  Low-Resolution  Spectra  Showing  Observed 

Transitions  (a)  SEP:  Pump-Dump-Probe  Sequence 
(b)  OODR:  Pump-Probe  Sequence 


2 


Delay:  90  ns 
Pressure:  1  Torr  He 


Delay:  90  ns 
Pressure:  1  Torr  He 


Wavenumbers  (cm’^ 

Figure  5.2:  Low-Resolution  Spectra  Showing  Energy  Transfer  Induced 
by  Collisions  with  He.  (a)  SEP  Pump-Dump-Probe 
Sequence,  (b)  OODK  Pump-Probe  Sequence 
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Figure  5.3:  Low-resolution  spectra  showing  vibrational  energy  transfer 
induced  by  collisions  with  He.  (a)  Ground  state  transfer 
observed  by  SEP  sequence  (b)  B  state  observed  by  OODR 


Figure  5.5:  High  Resolution  SEP-  LIF  Showing  Rotational  Energy  Transfer 
Between  I2  v'’=42,  J=17  with  Ar 
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accordance  with  the  rigorous  even  AJ  selection  rule  for  transfer  between  the  levels  of  a 
homonuclear  diatomic.  Second,  the  P(J)  and  R(J+4)  lines  were  superimposed  at  a 
resolution  of  0. 1  cm  \  This  spectral  overlap  problem  was  present  in  all  the  bands 
examined,  and  it  complicated  the  process  of  extracting  energy  transfer  rate  constants 
from  the  line  intensity  data. 

Measurements  of  the  total  rates  at  which  molecules  were  transferred  out  of  the 
v"=42,  J"=17  level  were  accomplished  as  shown  in  Figure  5.6.  This  was  done  by  fixing 
the  probe  laser  on  the  R(17)  line,  and  monitoring  the  fluorescence  intensity  as  a  fijnction 
oi  dump-probe  pulse  delay  time.  Good  single  exponential  decays  were  observed.  These 
decays  are  defined  by  the  expression  I(t)=Ae’‘“,  where  A  is  a  constant  and 
k=k'j2[l2]+k'i^[M].  k'j2  and  k'j^  are  the  total  transfer  rate  constants  for  collision  with  \  and 
M,  respectively.  Rate  constants  determined  by  fitting  the  initial  state  decay  curves  are 
listed  in  Table  5.1.  The  values  for  He,  Ar,  and  O2  were  obtained  using  an  I2  partial 
pressure  of  30  mTorr,  and  have  been  corrected  for  self-transfer.  Model  calculations 
indicated  that  these  measurements  were  relatively  insensitive  to  the  spectral  overlap 
problem.  Although  R(17)  was  overlapped  by  P(13),  the  fraction  of  the  total  population 
transferred  to  J"=13  was  predicted  to  be  quite  small.  Rate  constants  for  state-to-state 
rotational  energy  transfer  can  be  determined  from  rotationally  resolved  spectra 

taken  under  single  collision  conditions.  An  indirect  method  was  used  to  verify  that 
multiple  collision  events  were  not  modifying  the  intensity  distributions  seen  in  these 
experiments.  Spectra  were  taken  at  a  variety  of  pressures  and  delay  times  for  each 


Delay  (ns) 

Figure  5.6:  (a)  Decay  of  Initially  Pumped  Level  and 
(b)  Detection  of  Satellite,  J' -21 
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Table  5.1:  Rate  Constants  for  Total  Population 
Loss  from  Individual  Rovibronic 
Levels  for  I2  (JC)  v"=42,  T -17  and 
Comparison  with  I2  (B)  v-15,  J-33 


Collision 

partner 

cm^  s') 

I2 

8.6 

Ar 

5.0 

He 

6.6 

02 

7.8 

a.  Error  limits  ±0.5X1 cm^  s’* 

Collision 

k[I,(5)]' 

partner 

(10'^^  cm^  s'^) 

I2 

6.5±0.6 

Ar 

6.8±0.7 

He 

7.2±0.5 

02 

b.  J.  Derouad  andN.  Sadeghi,  Chem.  Phys.  Lett.  102,  324  (1983). 
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collision  partner,  and  conditions  where  the  intensities  of  the  collisionally  populated 
spectral  features  began  to  show  nonlinear  time  or  pressure  dependence  were  identified. 
Collision  induced  rotational  energy  transfer  of  Ij  with  He,  Nj,  and  Oj  are  shown  in 
Figures  5.7,  5.8,  and  5.9,  respectively.  Spectra  used  to  characterize  rotational  energy 
transfer  were  then  recorded  at  pressure/delay  combinations  that  were  well  below  those 
that  revealed  the  effects  of  multiple  collisions.  For  example,  under  the  conditions  used 
to  record  Figure  5.2,  the  rate  of  population  loss  from  J"=17  was  8.4x10"®  s’’ .  Thus  an 
average  of  0.25  energy  transfer  collisions  occurred  during  the  30  ns  between  the  dump 
and  probe  pulses. 

Low  and  high  resolution  scan  were  made  to  search  for  bands  resulting 
fi'om  vibrational  energy  transfer.  Surprisingly,  it  proved  to  be  difficult  to  find  conditions 
that  clearly  produced  these  band.  By  comparison  with  the  behavior  of  the  B  state  v -43 
level,  we  found  vibrational  transfer  out  of  the  X,  v"=42  level  to  be  an  inefficient  process 
for  all  the  collision  partners  investigated.  This  point  is  graphically  illustrated  in  Figure 
5.3.  The  upper  panel  shows  a  pump-dump-probe  spectrum  for  and  Ij/He  mixture  taken 
with  a  dump-probe  delay  of  90  ns  (OODR  features  were  removed  from  this  spectrum  by 
subtraction).  Note  that  the  rotational  contours  of  the  bands  arising  fi'om  X,  v"=42  have 
been  broadened  by  rotational  energy  transfer.  The  weak  band  at  33717  cm  *  was 
produced  by  v"=42— >v"=41  transfer.  For  comparison,  the  Figure  5.4b  shows  transfer 
occurring  in  the  B  state.  This  is  an  OODR  spectrum  (no  dump  pulse)  taken  with  a  delay 
of  60  ns  between  the  pump  and  probe  pulses.  Bands  resulting  from  both  upward  and 
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downward  vibrational  energy  transfer  are  evident  in  this  trace.  The  rotational  contours 
indicate  that  vibrational  transfer  within  the  B  state  was  not  accompanied  by  large 
changes  in  the  angular  momentum.  Ground  state  vibrational  energy  transfer  was 
observed  for  collisions  with  He  and  Oj.  The  populations  transferred  to  v"=41  were 
sufficient  to  permit  the  recording  of  rotationally  resolved  spectra.  In  contrast  vibrational 
transfer  caused  by  collisions  with  I2  or  Ar  could  not  be  detected.  The  sensitivity  of  these 
measurements  was  limited  by  the  fact  that  lines  resulting  from  pure  rotational  transfer 
masked  the  weak  levels  originating  from  v''=41  levels. 


§5.2  Analysis 


Computer  simulations  of  the  pump-dump-probe  spectra  were  used  to  estimate  the 
state-to-state  energy  transfer  rate  constants.  This  approach  was  necessitated  by  the  fact 
that  the  spectra  were  not  fully  resolved.  The  computer  model  was  based  on  a  kinetic 
analysis  that  assumed  single  collision  conditions  and  that  collisions  with  a  single  species, 
M,  dominated.  As  previously  noted,  efforts  were  made  to  ensure  that  these  conditions 
prevailed.  Starting  vAth  all  the  molecules  in  the  prepared  level  Vi=42,  Ji=17,  the 
equations  that  describe  the  time  evolution  of  the  ground  state  population  distribution' 
are 


-dlOjJil 


ki  [OiJi], 


d[ufJf] 


kf[UiJi] 


dt 


and 


dt 
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where  [V;!;]  and  [v^Jf]  are  the  populations  in  the  initial  and  final  states,  respectively. 
Constants  and  are  defined  by  the  equations 

ki  =  s  E  kM(v)iJi  ^ 

Uf  Jf 

kf  =  kM(uiJi  ->  DfJf)[M], 

where  kM(Vi  is  a  state-to-state  transfer  rate  constant.  Integration  of  the  rate 

equations  yields  the  results 

[V;  Ji  ]  =  [ViJi  loe*^  and  [v^ JJ  =  [V;  %  k^/  k^  (l-e*^). 
Rovibrational  population  distributions,  calculated  fi'om  above  equations  and  trial 
values  for  the  rate  constants,  were  used  to  generate  synthetic  spectra  that  could  be 
compared  with  the  experimental  results.  In  principle,  all  of  the  rate  constants  could  be 
varied  until  an  optimum  fit  was  achieved.  However,  the  quality  of  our  data  was  not 
sufficient  to  warrant  this  approach.  Consequently,  we  used  scaling  laws  to  parametrize 
the  rate  constants,  and  then  adjusted  the  parameter  values  to  obtain  agreement  with 
experiment.  For  analysis  of  the  pure  rotational  transfer  data,  a  simplified  version  of  the 
statistical  power  gap  law^  (SPG)  was  used,  vis., 

kM(Ji-^Jf)=CNJAE/Br 

C  and  y  are  fitted  parameters.  B  is  the  rotational  constant,  AE  is  the  difference  in  energy 
between  the  initial  and  final  states  and  is  a  statistical  factor  that  depends  on  the  extent 
to  which  the  angular  momentum  projection  quantum  number,  m,  is  modified  by 
collisions.  On  the  basis  of  this  relationship,  graphical  simulations  were  used  to  obtain 
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best  estimates  for  the  parameters  C  and  y.  Computer  simulations  of  Ij  self  transfer,  and 
I2  with  He  and  Ar  are  shown  in  Figures  5.10-5.12,  respectively.  The  C  coefficients  were 
constrained  to  give  total  rotational  transfer  rate  constants  )]  that  were 

compatible  with  the  decay  rate  constants  given  in  Table  5.1.  One  set  of  fittings  was 
performed  with  the  assumption  that  m  is  randomized  by  collision.  A  second  set  was 
made  with  the  constraint  that  A»j=0.  The  fits  obtained  with  either  assumption  were 
comparable,  so  I  cannot  comment  on  the  efficiency  of  collisions  that  cause  reorientation. 
Parameters  determined  for  the  /w-randomizing  limit  (N^=2Jf+l)  and  the  associated 
values  are  listed  in  Table  5.2.  The  individual  rotational  transfer  rate  constants  for  \  +He 
is  graphically  illustrated  in  Figure  5.13. 

Vibrational  energy  transfer  (Vj=42-»Vf=41)  was  observed  for  collisions  with  He 
and  Oj.  Features  corresponding  to  upward  transfer  or  multiquantum  downward  transfer 
could  not  be  detected.  The  rotational  contours  of  the  bands  originating  fi’om  v=41  were 
consistent  with  a  tendency  to  conserve  angular  momentum.  From  trial  simulations  it  was 
found  that  rate  constants  defined  by  the  expression 

k^(v,=42  J.=17  ^v,=41  J,)  =  C,2.4i  N,  |AE„/Br^ 
yielded  distributions  that  were  in  good  agreement  with  experiment.  Here  AE^<„  is  the 
difference  in  rotational  energy  between  the  initial  and  final  states.  Note  that  the  equation 
has  a  singularity  at  AE„j=0.  This  problem  was  avoided  by  setting 

kjyr42  J-rll  ->Vf=41  J^n)  =  kjvr42 1^17  ->Vf=41 1^=19). 


R17  P17 
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Wavelength  (nm) 

Figure  5.12:  Simulation  of  Rotational  Energy  Transfer  of  I2+  Ar  for  Z),v=5<-X,v=42,  J.=17 
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Table  5.2:  Rotational  Energy  Transfer  Rate  Constants 
and  Statistical  Power  Gap  Law  Coefficients 


Collision 

Ij  (A)  v”=42 

partner  “ 

Y 

cab 

He 

1.2 

4.5 

6.0 

Ar 

1.0 

1.3 

5.0 

0, 

1.0 

1.9 

7.2 

I2 

0.7 

0.3 

8.6 

a.  Coefficients  calculated  by  considering  1^^.  <101 . 

b.  Units  of  10  '°  cm^  s’' 

c.  Error  limits  ±0.5X10‘'°  cm^  s''. 

Collision 

h(B) 

partner 

Y 

c 

Koi 

He 

1.40“ 

1.18“ 

5.5" 

Ar 

1.41' 

•  •  •  • 

4.6® 

0. 

•  •  •  • 

.... 

3.8'' 

I, 

1.49' 

.... 

1.7® 

d.  S.  Dexheimer,  M.  Durand,  T.  Brunner,  and  D.  Pritchard,  J.  Chem. 
Phys.  76,  1996  (1982).  v'=13,  T  =41  to  113 

e.  y^B)  y=l5, 3^=59.  Reference  4 
f  y[B)  Vj=l  1,  Ji=79.  Reference  9 

g.  12(B)  Vj=15,  Ji=33.  Reference  4 

h.  12(B)  Vj=25,  Ji=34.  Reference  8 
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The  values  of  y  used  in  these  simulations  were  taken  from  Table  5.2,  leaving  only  the 
C^2a\  coefiBcients  to  be  determined  from  the  fits.  Overall  rate  constants  for  transfer  from 
Vi=42  to  Vf=41  were  evaluated  by  summing  the  state-to-state  rate  constants.  These  are 
given  in  Table  5.3.  The  vibrational  model  was  also  used  to  investigate  the  upper  limits 
for  the  rate  constants  for  relaxation  induced  by  Ar  or  l^.  The  upper  limits  given  in  Table 
5.3  were  estimated  by  finding  values  for  the  constants  that  were  on  the  threshold  of 
producing  discernible  featues  in  the  simulated  spectra. 

§5.3  Discussion 

The  rate  constants  for  removal  of  population  from  the  v"=42,  J"=17  level  of  IjCA!) 
indicate,  for  all  collision  partners  investigated,  that  transfer  occurs  on  every  collision. 
There  is  only  one  other  measurement  that  can  be  compared  directly  with  these  results. 
Koffend  et  al.^  examined  the  self-relaxation  of  a  group  of  rotational  levels  (J"=l  1,  13, 

15  and  17)  in  the  v"=42  manifold.  They  reported  a  lower  limit  for  the  removal  rate 
constant  of  2.  Ixl0'°  cm^  s',  with  which  the  result  of  the  present  study  is  compatible. 

For  collisions  with  He,  Ar,  and  Ij  the  total  removal  rate  constants  for  are  very 
similar  to  those  reported  by  Derouard  and  SadegW*  for  various  rotational  levels  of 
I,5(v'=15). 

The  present  rate  constants  for  vibrational  energy  transfer  are  compared  with 
results  for  I2  J!f(v"=40)  from  the  work  of  Hall  et  al.^  in  Table  5.3.  For  collisions  with  Ar 
and  Ij,  the  SEP  results  are  significantly  lower  than  the  rate  constants  reported  by  Hall  et 
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Table  5.3;  Vibrational  Energy  Transfer  Rate  Constants  for  I2  {X) 


Collision 

partner 

k^/lO'" 

cm^  molecule  *  s'* 

Vi=42" 

v,=40'’  v>20‘ 

He 

5.5±1.0 

3.1±0.6 

Ar 

<1 

2.3±0.1  <0.5 

Oa 

4.5±L0 

0.5 

I2 

<1 

5.6±1.2 

a.  Present  study  (SEP-LIF) 

b.  Hall  et  al.(Vi=40) 

c.  Hiedneretal.  Note:  Overall  deactivation  to  levels  below 
v"=20  for  I2  (X). 
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al.  The  discrepancy  is  reversed  and  less  pronounced  for  He.  I  am  not  aware  of  any 
obvious  reasons  for  these  differences.  One  possibility  is  that  vibrational  energy  transfer 
induced  by  Ar  or  Ij  involves  large  changes  in  the  angular  momentum  and  /or  significant 
|Av|>l  processes.  Partitioning  of  the  transferred  population  into  a  large  number  of  final 
states  would  then  require  very  high  sensitivities  and  signal-to-noise  ratios  for  detection. 
Under  these  circumstances  transfer  could  have  occurred  with  the  rate  constants 
proposed  by  Hall  et  al.,  without  producing  detectable  Av=-1  features  in  the  present  SEP 
measurements.  The  vibrational  rate  constants  are  consistent  with  van  Benthem  and 
Davis'®  observation  that  He  relaxed  l2Z(v">33)  more  rapidly  than  Ar,  and  the  low 
estimate  of  Heidner  et  al.^  for  the  rate  at  which  is  activated  by  Ar.  Relaxation  by 
02(A)  was  also  considered  in  the  Heidner  et  al.  model  of  the  flow  tube  kinetics.  Two 
sets  of  rate  constants  were  found  to  be  in  reasonable  agreement  with  experiment.  The 
oxygen  deactivation  terms  in  these  models  were  5x10  ”  and  5x10  '^  cm^  s”,  respectively. 
Given  the  multi-step  nature  of  the  deactivation  process,  the  latter  is  more  compatible 
with  the  present  results. 
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Chapters 

Stimulated  EImission  Pumping  v"=  38 


§6.1  Results 

Figure  6. 1  shows  a  typical  SEP-LIF  spectrum  taken  under  low  resolution.  The 
two  notable  features  of  this  spectrum  are  the  SEP  prepared  J"=49  lines  and  the 
inadvertent  optical-optical  double  resonance  (OODR)  J  — 40  and  J  — 48  lines.  A  sample 
calculation  for  line  positions  in  v''=38  is  provided  in  Appendix  A.  The  resonant 
three-photon  SEP-LIF  technique  has  the  advantage  of  eliminating  the  rotational 
congestion  through  rotational  state  selection  rules.  However,  the  conditions  for  the 
preparation  and  analysis  of  IjCA;  v*-38)  were  also  favorable  for  OODR  of  the 

via  the  pump-probe  sequence.  Fortunately,  sufficient  separation  (»40 
cm  ' )  between  the  SEP  and  OODR  transitions  provided  for  clean  and  uncongested 
spectra  near  the  initially  prepared  levels.  In  order  to  remove  any  ambiguities  in 
assignment  and  analysis  at  high  and  low  J,  scans  were  run  with  and  without  the  dump 
laser  as  shown  in  Figures  6.2  and  6.4.  Interestingly,  a  comparison  of  collisionally 
induced  rotational  energy  transfer  between  the  X  state  and  the  B  state  indicates  an 
intriguing  result.  When  comparing  RT  transfer  between  the  two  states  for  Ij+Ar  as 
shown  in  Figure  6.2,  angular  momentum  occurs  over  more  rotational  states  as  indicated 
by  the  relative  intensity  of  the  spread  surrounding  each  parent  peak. 


2882  2884  2886  2888  2890  2892  2894  2896 

Wavelength  (A) 

Figure  6.1:  Low  Resolution  LIF  Spectrum  Showing  OODR 
and  SEP  for  f-B  and  D-X,  respectively. 
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Figure  6.2:  Comparison  of  Low  Resolution  Spectra  of  l2+Ar  With 
D-X  and  f-B  Transitions  Showing  Rotational  Energy 
Transfer  (a)  With  and  (b)  Without  Dump  Laser 
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Experimentally  determining  the  energy  transfer  rate  coefficients  required 
recording  the  rotationally  resolved  fluorescence  spectra  and  following  the  laser 
excitation  of  individual  rovibrational  levels.  Under  high  resolution,  the  initially  prepared 
parent  peaks  are  observed  in  Figure  6.3.  Rotational  transfer  by  collisions  result  in  the 
appearance  of  satellite  peaks  in  the  fluorescence  spectrum.  Under  mild  experimental 
conditions,  the  progression  of  the  P  and  R  doublets  resulting  fi’om  rotational  energy 
transfer  with  helium  is  cleanly  resolved  under  the  high  resolution  scans.  Since  the  initial 
J  value  for  this  SEP-LIF  experiment  was  odd  (J;  =49),  only  odd  J  values  were  populated 
due  to  the  rigorous  symmetry  selection  rule  AJ=±2n  for  a  homonuclear  diatomic  because 
nuclear  spin  states  are  not  easily  changed  by  collisions.  Once  again,  many  scans  were 
collected  in  pairs  as  shown  in  Figure  6.4;  one  with  the puntp-dump-probe  (SEP) 
sequence,  and  one  with  the  dump  laser  blocked  (OODR).  Unlike  v"=42  SEP  spectra, 
the  OODR  was  sufficiently  isolated  and  interference  with  RT  energy  transfer  was 
minimal.  In  addition,  the  constants  for  the  levels  investigated  were  such  that  both  the 
P  and  R  branches  were  cleanly  resolved  under  our  experimental  conditions.  This 
eliminated  the  spectral  overlap  problem  which  was  present  in  the  v"=42  SEP 
experiment. 

Collecting  experimental  data  for  determining  the  kinetics  was  accomplished 
through  two  different  methods.  The  first  method  involved  fixing  the  delay  between  the 
dump  and  probe  lasers,  while  the  second  method  involved  fixing  the  pressure  and 
adjusing  the  delay.  The  second  method  was  the  manner  in  which  the  majority  of  the 
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Figure  6.3:  SEP-LIF  of  I2  (Av-10<-Ar,v''=38)  with  He 
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Figure  6.4:  High-Resolution  Spectra  of  I2  D<r-X  With  He  Showing  (a) 
No  (OODR)  Signal  from  pump-probe  Sequence  {dump  Laser 
Blocked)  and  (b)  Transitions  from  pump-dump-probe 
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energy  transfer  data  was  collected.  With  the  delay  fixed,  numerous  scans  with  different 
pressures  would  be  collected.  Figure  6.5  shows  effects  of  quenching  with  increasing 
pressure.  Initially,  the  lack  of  an  accurate  and  calibrated  baratron  hindered  data 
collection  in  this  manner.  A  McLeod  mercury  manometer  (10"^  -  0.2  Torr)  was 
connected  to  the  sample  chamber.  While  providing  absolute  pressure  determinations,  the 
McLeod  gauge  suffered  several  inherent  problems.  First,  measurements  could  not  be 
made  on  a  continuous  basis  and  were  time-consuming  since  the  mercury  reservoir  had  to 
be  raised  and  lowered  each  time  a  measurement  was  recorded.  Second,  the  iodine 
reacted  with  the  mercury  forming  a  red-orange  solid,  Hglj  in  the  capillary  tubes  which 
required  cleaning  with  an  ethanol/acid  rinse.  And  third,  mercury  has  a  measurable  vapor 
pressure  at  room  temperature.  No  cold  trap  was  installed  between  the  mercury 
manometer  and  the  sample  chamber  in  order  to  prevent  mercury  streaming  error.’  So  in 
order  to  minimize  contamination,  a  shut-off  valve  was  installed  and  kept  in  the  closed 
position  until  measuring  of  the  chamber  pressure  was  required.  In  addition,  spectra  were 
collected  with  increasing  diluent  pressure  to  prevent  any  reflux  from  the  manometer  into 
the  sample  chamber. 

Since  iodine  self-transfer  must  be  accounted  for  in  all  spectra,  a  thorough 
characterization  of  iodine  was  performed.  Figure  6.6  shows  a  high  resolution  scan  of 
iodine  self-transfer.  In  comparison  with  other  spectra,  the  obvious  feature  of  all  iodine 
self-transfer  spectra  is  the  relative  lack  of  rotational  energy  transfer.  In  addition,  efforts 
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F igure  6 . 6 :  SEP-LIF  Spectrum  of  I2  {Dy= 1 0<-X,v "=3  8) 
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were  made  to  characterize  energy  transfer  in  terms  of  the  colliding  mass.  RET  spectra  of 
N2  and  Ojare  shown  in  Figures  6.7  and  6.8,  respectively. 

Collision  partners  which  are  relevant  to  the  COIL  device  such  as  Clj,  HjO,  and  He 
were  examined  as  well.  Experimentally,  the  introduction  of  Clj  into  the  chamber 
produced  a  unique  pressure  decrease.  Upon  adding  Clj  to  the  iodine  sample  chamber, 
the  pressure  would  experience  a  rather  steep  drop  as  if  a  chemical  reaction  between  Ij 
and  CI2  was  occurring.  While  the  reaction  +Cl2-^  2IC1  proceeds  at  room  temperature, 
and  inspection  of  the  sample  chamber  revealed  no  unusual  deposits.  ICl  consists  of  two 
crystalline  forms^:  the  a  form  which  crystalUzes  as  large  transparent  ruby  red  needles;  or 
the  metastable  P  form  which  is  obtained  as  brownish  red  crystals.  Obtaining  a  RET 
spectrum  with  chlorine  as  shown  in  Figure  6.9  would  require  constant  monitoring  and  a 
periodic  addition  of  CI2  to  maintain  constant  pressure  (±  5  mTorr). 

Besides  CI2,  H2O  and  D2O  were  difficult  diluents  for  recording  RET  spectra  due 
to  the  large  pressure  fluctuations  upon  adding  of  the  gas  into  the  sample  chamber.  Both 
liquids  (H2O  and  D2O)  were  subjected  to  numerous  freeze-pump-thaw  cycles  to  remove 
any  dissolved  gases  from  the  sample.  While  the  sample  was  still  fi-ozen,  the  chamber 
was  opened  to  the  diluent  until  the  desired  pressure  was  obtained.  The  observed 
pressure  fluctuation  can  be  described  by  the  non-ideal  behavior  of  H2O  and  D2O  in 
iodine.  Spectra  were  collected  after  the  pressure  stabilized  (usually  20-30  mins). 
Examples  of  RET  for  H2O  and  D2O  are  shown  in  Figures  6. 10  and  6. 1 1,  respectively. 

Vibration-translation  energy  transfer  was  observed  for  all  the  collision  partners 
for  which  spectra  were  collected.  For  the  collisional  partners  examined,  vibrational 
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Figure  6.7:  SEP-LIF  Spectrum  of  I2  (Av-10<-Jr,v"=38) 
withN2 
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Figure  6.8:  SEP-LIF  Spectrum  of  I2  (D,v-10<-X,v"=38)  with  O2 
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Figure  6.9:  SEP-LIF  Spectrum  of  I2  (D,v-10<-X,v"=38)  with  CI2 
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Figure  6. 10:  SEP-LIF  Spectrum  of  I2  {D,V  =10<-  Jf,v"=38)  with  H2O 
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relaxation  was  governed  by  a  strong  Av=-1  propensity.  Some  rotational  memory  is 
evident  as  J=49  is  the  strongest  feature.  Figure  6. 12  shows  a  high  resolution  LIF 
spectrum  with  Ar  diluent.  Collision-induced  transfer  by  Ar  is  evident  for  both  v"=38  and 
v"=37  (the  noise  level  in  v' -42,  as  discussed  in  Chapter  5,  precluded  detection  of 
vibrational  transfer  by  Ar  or  Ij).  Energy  transfer  with  CI2  and  D2O  are  shown  in  Figures 
6.13  and  6.14,  respectively.  The  intensity  pattern  is  remarkedly  similar  for  both  of  these 
species  except  near  the  end  of  the  scan  (<  2873.2  nm)  where  the  intensity  of  the  CI2  for 
v"=38  is  slightly  decreasing  due  to  the  pressure  effects  previously  discussed. 

§6.2  Analysis 

Ideally,  one  would  always  work  at  pressures  sufficiently  low  and  delays 
sufficiently  short  that  the  probability  of  multiple  collisions  are  negligible.  Unfortunately, 
these  restrictive  experimental  conditions  are  not  necessarily  the  most  favorable  for 
obtaining  adequate  signal  intensity  for  data  gathering.  At  sufficiently  high  bath  gas 
pressures  and/or  long  delay  times,  secondary  collisions  from  the  initially  populated  or 
collisionally  populated  levels  must  be  considered  .  These  secondary  collisions  may 
repopulate  the  initially  prepared  state  or  the  satellite  band  under  investigation.  This 
kinetic  process  is  known  as  back  transfer  and  it  has  the  delirious  consequence  of  giving 
rate  coefficients  which  do  not  accurately  reflect  the  relaxation  events  under 
investigation.^  Thus,  corrections  are  necessary  to  properly  account  for  these  kinetic 
events  if  experimental  conditions  do  not  warrant  single  collision.  Single-collision 
conditions  in  a  cell-experiment  are  given  by 
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Wavelength  (A) 

Figure  6.12:  High  Resolution  SEP-LIF  Spectrum  of  I2  (X)  v'’=38  and  Ar 


330  ns  delay 

50  mTorr  L  and  100  mTorr  Cl 
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Figure  6.13:  High  Resolution  SEP-LIF  Spectrum  of  I2  (X;  v"=38)  with  Cl, 


330  ns  delay 

30  mTorr  L  and  120  mTorr  D^O 
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Figure  6.14:  High  Resolution  SEP-LIF  Spectrum  of  I2  (X;  v’'=38)  with  D2O 
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X  >  uAto=  /, 

where  u  is  the  mean  speed  of  the  molecule  (8kT/7tm)'^\  At^  is  the  time  scale  for  the 
observation,  and  X  is  the  mean  free  path.'*  The  mean  free  path  X,  should  be  larger  than 
the  flight  length,  /,  which  occurs  within  the  time  scale  of  the  observation  time.  At,,. 
However,  K.  Yamaski  and  S.  R.  Leone'*  stated  that  this  inequality  is  not  a  sufficient 
criterion  for  single-collision  conditions.  They  observed  signals  from  a  large  number  of 
molecules  which  had  undergone  multiple  collisions  under  their  experimental  conditions. 
They  proposed  a  stricter  criterion  for  single-collision  conditions.  With  the  probability 
distribution  for  the  number  of  collisions  being  represented  by  a  Poisson  distribution,  the 
probability  of  one  collision  in  a  distance  /,  should  not  exceed  one-fifth  the  mean  free  path 

0.2X  >  uAt,  =  I, 

where  Atj  is  the  predetermined  time  scale  of  the  observation.  The  inequality  is  derived 
from  the  requirement  that  the  number  of  molecules  colliding  under  single  collision 
conditions  are  sufficiently  larger  than  molecules  undergoing  multiple  collisions  by  a 
factor  of  ten.  The  number  of  molecules  which  do  not  collide  at  all  is  the  largest  under 
this  condition. 

In  follow-on  SEP-LIF  experiments  to  those  reported  in  this  dissertation,  a 
program  was  developed  to  ascertain  the  onset  of  multiple  collisions.  T.  Van  Marter  and 
W.  Basinger  implemented  the  integral  of  J.  Derouard  and  N.  Sadeghi^  in  solving  the  rate 
matrix  for  the  ECS  scaling  law 
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and  calculated  the  populations  resulting  from  multiple  collisions.  Applying  their  results 
to  the  experimental  conditions  under  which  my  spectra  were  sampled  (pressure  less  than 
200  mTorr),  the  single  collision  approximation  is  valid  through  300  ns  at  200  mTorr. 

The  total  loss  rate  was  determined  for  each  diluent  by  placing  the  probe  laser  on 
the  initial  populated  level  and  monitoring  the  decay  of  the  fluorescence  intensity  as  a 
function  of  the  delay  between  the  dump  and  probe  lasers.  Data  was  collected  in  25-50 
ns  increments  from  100-600  ns.  Single  exponential  decays  were  observed  for  all  samples 
and  defined  by  I(t)=Ae'‘^,  where  A  is  a  constant  and  k=k'i2[l2]+k'M[M].  k'12  and  k'^^  are 
the  total  transfer  rate  constants  for  and  M,  respectively.  The  total  loss  rate  constants 
given  in  Table  6.1  have  been  corrected  for  iodine  self-transfer. 

The  rotational  energy  transfer  rate  constants  were  determined  from  the  intensity 
of  the  collisionally  populated  satellite  peaks.  In  determining  the  intensity,  baselining  of 
the  spectrum  was  necessary.  The  baseline  was  established  by  subtracting /7M/w/?-/7/-o6e 
from  pump-dump-probe  spectra  or  by  visual  inspection.  The  number  densities  were 
determined  from  the  peak  heights  after  resolving  if  the  peak  area  and  peak  height  was 
proportional.  The  respective  P  and  R  branches  were  measured  and  averaged  where  the 
intensity  I  is  the  peak  height  and  Ij  =  (Ip+Ir)/2.  Applying  a  simplified  form  of  the 
statistical  power  gap  law 


ki^f  =  ANlAE|-“ 
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Table  6.1:  Rate  Constants  for  Total  Population  Loss  of 
Rotational  and  Vibrational  Energy  Transfer 
from  Individual  Rovibronic  Levels  for 
I,  (X)  v"=38,  J=49 


Collision 

Partner 

IV'j’ 

\,{X) 

\c 

% 

% 

1— ( 

0^ 

I2 

6.6 

6.0 

0.6 

6.5±0.6 

Ar 

5.5 

5.1 

0.4 

6.8±0.7 

He 

5.4 

4.4 

1.0 

7.2±0.5 

H, 

7.2 

- 

- 

14.0±0.7 

N2 

8.0 

6.7 

1.3 

- 

O2 

7.0 

6.3 

0.7 

- 

Cl, 

4.0 

3.1 

0.9 

- 

H,0 

8.8 

6.2 

2.6 

- 

D,0 

2.9 

2.2 

0.7 

- 

°  Units  of  10''°  cm^  s'' 

'’Error  Limits  ±0.5  X  10''°  cm^  s'' 

‘Error  Limits  ±0.7  X  10'"  cm^  s'' 

J.  Derouard  and  N.  Sadeghi,  Chem.  Phys.  Lett.  102,  324  (1983). 
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rearranging, 

ln%^  =  -a[lnAE]  +  lnA 

Assuming  single  collision  conditions,  the  intensity  given  by  the  peak  height  is 
representative  of  k,^f ,  N  is  the  spin  degeneracy  factor,  a  and  A  are  parametric 
constants,  and  AE=B[JXJf+l)-J,(J,+l)]-  A  plot  of  ln[IJ/[N]  vs  ln(AE/B)  yielded  a  slope 
of  a  as  seen  in  Figure  6.15.  Table  6.2  lists  the  SPG  coefficients  and  the  corresponding 
spin  degeneracy  factor.  Three  spin  degeneracy  factors  were  investigated  for  N. 
/w-randomizing  where  N^=2j(.+1;  /w-conserving  No=  (2j<+l)/(2j  +1)  where  j<  is  the  lesser 
of  jf  or  jji  and  w-statistical  Generally,  /w-randomizing  provided  the  best  correlation 

except  for  the  light  rare-earth  gases  where  the  /w-conserving  model  provided  a 
marginally  better  fit.  The  exponential  and  hybrid  fitting  laws  were  also  modeled,  but  in 
all  cases  the  SPG  fitting  law  provided  a  better  representation  of  the  spectra.. 

After  obtaining  a  for  the  SPG  model,  the  spectrum  would  be  simulated  with  the 
Display  program  (Appendix  D)  and  a  optimized.  Results  of  the  RET  simulation  for  Ij 
and  Ar  are  shown  in  Figure  6.16.  A  stimulation  of  the  rotational  manifold  for  J=1  to  101 
for  RT  energy  transfer  of  Ij  +  He  is  shown  in  Figure  6. 17.  The  rate  constants  for 
rotational  energy  transfer  are  provided  in  Table  6.1. 

The  analysis  for  energy  transfer  between  vibration-translation  was  not  as 
strmght-forward.  The  most  significant  unknown  was  in  determining  the  rotational 
distribution  of  the  vibrationally  populated  level.  With  the  rotational  energy  transfer  of 
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Figure  6. 15:  (a)  In-ln  Plot  of  kj^f/N  vs  AE/B  and  (b)  Decay 
of  Initially  Populated  12(^0^' “38,  J  =49  +  Ar 


Table  6.2:  Statistical  Power  Gap  Law  Coefficients  and 
Spin  Degeneracy  (N)  for  Ij  (X)  v"=38,  Ji=49 


Collision  partner  a _ N 


Ij  0.71  2J+1 

He  0.54  2J^+1 

Ar  0.65  2J.,+1 

0.74  2J+1 

Oj  0.66  2J+1 

Clj  0.76  2J+1 

H^O  0.94  2J+1 

D^O  0.63  2J+1 
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Figure  6.16:  (a)  SEP-LIF  Spectrum  of  I2  +  Ar  and 
(b)  Simulation  of  I2  (X)  v"=38  +  Ar 
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Wavenumbers  (cm  ) 

Figure  6.17:  Simulation  of  the  rovibrational  manifold  for  J=  1  ^  1 0 1 
with  I2  (D,v'=10^X,v"=38)  +  He 
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the  initially  populated  level  determined,  the  peak  heights  of  representative  rotationally 
and  vibrationally  populated  levels  were  compared  and  scaled  by  a  correction  factor  to 
account  for  the  difference  in  the  transition  probability  (Franck-Condon  Factor).  When 
experimental  data  was  available,  the  observable  peaks  were  individually  measured  and 
assigned  a  rate  commensurate  with  the  RET  rate.  Since  the  rotational  contours  of  the 
vibrational  energy  transfer  were  consistent  with  a  tendency  to  conserve  angular 
momentum,  the  unobserved  peaks  in  the  vibrationally  populated  level  were  scaled  with 
the  a  (Table  6.2)  of  the  SPG  where 

k^(v.=38  J,=49^Vf=37  J^)  =  C3,.3,NJAE„/Br 
The  total  vibrational  rate  constant  would  then  be  determined  by  summing  the  rates  from 
the  observed  and  SPG  distributions.  Combining  the  observed  and  SPG  distributions 
avoided  the  singularity  at  AE„j=0.  The  rate  constants  for  vibrational  transfer  are  hsted  in 
Table  6.1. 
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Chapter  7 

Stimulated  Emission  Pumping  v"=  23 


§7.1  Results 

The  spectra  of  v' -23  were  the  cleanest  by  far,  both  experimentally  in  terms  of  the 
signal  to  noise,  and  spectroscopically  in  terms  of  no  OODR  interference  or  spectral 
overlap.  Figure  7.1  shows  typical  low  resolution  spectra  of  I2  self  transfer  and  Ij  with 
argon.  Unlike  the  previous  two  SEP-LIF  experiments,  v''=42  and  v"=38,  the  probe  laser 
did  not  excite  the  two-photon  transition.  Fortuitously,  unfavorable 

Franck-Condon  factors  for  the  /(0y<-5(0‘'J  transition  precluded  OODR  interference 
via  the  pump-probe  sequence.  The  initially  populated  P  and  R  lines  for  Ji=57  are  clearly 
visible  in  the  iodine  self-transfer  spectrum.  CoUisionally  populated  satellite  peaks 
surrounding  the  larger  parent  peaks  are  observed  with  the  argon  diluent. 

The  fluorescence  peaks  in  Figure  7.2  correspond  to  the  probe  transitions  fi’om  the 
initially  prepared  state  (Ji=57)  and  the  rotational  energy  transfer  induced  by  collisions  as 
evidenced  by  the  progression  of  the  satellite  peaks.  The  progressions  are  asymmetric 
with  the  collisions  favoring  a  slight  propensity  for  high  J.  This  is  surprising  in  light  of  an 
increasing  energy  gap  and  the  fact  that  the  initial  level  populates  J^.  The  prior 
distribution  of  surprisal  theory  predicts  the  final  J  distribution  to  be  similar  to  the  thermal 
distribution.  The  relative  intensity  of  the  peaks  reflect  the  temporal  population  evolution 
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Figure  7.1:  Low  Resolution  Spectra  Showing  Rotational  Energy 
Transfer:  (a)  Ij  (X;v"=23)  and  (b)  +  Ar 
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Figure  12\  High  Resolution  LIF  of  an  Rotational  Manifold  with  Argon 
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of  the  initially  prepared  and  collisionally  populated  states.  Significant  relaxation  of  the 
rotational  manifold  is  observed  at  a  400  ns  delay  under  relatively  mild  diluent  pressures. 

The  rotational  energy  transfer  in  Figures  7.2  and  7.3  shows  the  same  general 
trends.  While  the  longer  delay  of  the  helium  spectrum  (500  ns)  approaches  multiple 
collisions,  the  spectrum  is  indicative  of  the  rotational  energy  transfer.  In  fact,  the  energy 
transfer  in  Figure  7.2  has  populated  J<  sufficiently  that  the  bandhead  is  visible  near 
2539.1 A  for  D,  v-33  <r-Xy -23.  In  Figure  7.4,  the  propensity  for  rotational  energy 
distribution  over  a  wide  J  range  for  v'=33  and  v'=34  can  be  seen.  Once  again,  rotational 
transfer  for  the  ground  state  was  spread  over  significantly  more  rotational  levels  than  the 
corresponding  transfer  in  Ij  (B). 

While  the  collision-induced  RT  bands  were  prominent,  the  vibrational  transfer 
peaks  were  not.  Vibration-translation  energy  transfer  is  present  in  both  Figure  7.4  with 
argon  and  Figure  7.5  with  helium.  Features  due  to  vibrational  energy  transfer  were 
observed  for  all  collision  partners.  For  v"=23^22  transfer  induced  by  collision  with  Ar, 
we  obtained  a  rate  constant  of  3x10  "  cm^  s  '.  This  value  is  in  agreement  with  the  work 
of  Hall  et  al.'  Figure  7.6  shows  the  extensive  RT  and  VT  energy  transfer  with  He. 

Surprisingly,  HjO  was  not  particularly  effective  in  removing  vibrational  energy 
fi-om  Ij.  To  illustrate  this  point.  Figure  7.7  shows  a  section  of  the  Ij  D-X  spectrum  of  Ij 
with  HjO.  The  delay  between  the  dump  and  probe  pulse  was  200  ns.  Lines  originating 
fi-om  levels  populated  by  rotational  energy  transfer  are  prominent  in  this  trace.  A  few 
weak  features  produced  by  v"=23->22  relaxation  can  be  seen.  Lines  originating  fi-om 


Wavelength  (nm) 

Figure  7.3:  High  Resolution  LIF  of  I2  (D;  v'=34<-Z;v"=23, 1^=57) 
Showing  Rotational  Energy  Transfer  with  Helium 
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Figure  7.4:  High  Resolution  LIF  of  I2  (Z),v'=33,34<-X,v"=23) 
with  At  (400  ns  delay,  150  mXorr) 


178 


2535.2  2535.6  2536.0  2536.4  2536.8  2537.2 
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Figure  7.5:  SEP-LIF  of  I2  (Av-34^X,v"=23)  with  He 
Showing  Both  Rotational  and  Vibrational 
Energy  Transfer 


179 


Wavelength  (A) 

Figure  7.6:  High  Resolution  SEP-LIF  Spectrum  of  I2  (v"=23)  with  He  Diluent 
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Figure  7.7:  High  Resolution  LIF  of  12^  (X;  v”=23)  with 

H2O  Showing  Both  Rotational  and  Vibrational 

Energy  Transfer 
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coUisionally  populated  v"=22  levels  are  evident  near  2535.8  A.  From  spectra  recorded  at 
a  number  of  different  delays,  it  could  be  seen  that  the  population  lost  from  V;"=23, 
j,"=57  was  within  the  experimental  error  limits  accounted  for  by  population  transferred 
to  other  v"=23  rotational  levels.  Figure  7.8  allows  a  qualitative  comparison  between 
several  diluents  under  similar  experimental  conditions.  The  most  notable  difference  is  the 
relative  lack  of  rotational  energy  transfer  for  self-transfer  when  compared  with  other 
collision  partners.  The  other  notable  feature  is  the  presence  of  satellite  peaks 
surrounding  R49  in  the  Ij+He  and  I2+H2O  spectra.  The  presence  of  these  peaks  indicate 
vibrational  transfer  to  v' -22  while  this  feature  is  lacking  in  both  the  Ij+Ar  and 
self-transfer  spectra. 


§7.2  Analysis 

The  total  rate  loss  constant  was  determined  for  each  diluent  by  parking  the  probe 
laser  onto  a  parent  peak  and  recording  the  intensity  as  a  function  of  the  delay  between 
the  dump  and  probe  lasers.  The  decay  of  the  initially  populated  level  for  I2  {X)  \  =23, 
Ji=57  +  N2  is  shown  in  Figure  7.9.  The  rate  was  obtained  by  determining  the  slope  and 


slope 

3.24x10^^ 

pressiire(inToiT) 


xlO’ 


Efforts  were  made  to  minimize  the  iodine  concentration  in  relation  to  the  diluent  sample 
concentration  so  that  iodine  self-transfer  corrections  would  be  minimal.  Unfortunately, 
these  conditions  were  not  always  compatible  with  an  adequate  signal  strength  so 
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Wavelength  (A)  Wavelength  (A) 

Figure  7.8:  Comparison  of  High  Resolution  LIF  of  v"=23  of  Iodine  with  Several  Diluents 
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concentrations  were  adjusted  accordingly.  One  complication  with  obtaining  ideal  mixes 
was  that  the  McLeod  manometer  limited  total  pressures  to  200  mXorr.  Total  loss  rate 
constants  in  v'-23  are  given  in  Table  7.1  with  their  respective  collision  partners. 

After  determining  the  total  loss  rate  constants,  the  rotational  energy  transfer  rate 
constants  were  determined.  Total  rotational  transfer  rate  constants  are  a  summation  of 
the  state-to-state  rotational  transfer  rate  constants.  Two  methods  for  determining  the 
RET  rate  constants  were  utilized.  The  first  approach  involved  using  an  analysis^  where 
under  single  collision  conditions,  the  population  of  4  populated  by  rotational  energy 
transfer  from  J;  is 

^  =  [Ni](t)kR-[Nf]  =  0 
Rearranging,  [Nf] 

W] 

where  [NJ  is  the  population  of  the  parent  peak,  [NJ  is  the  population  of  the  satellite 
peak,  t  is  delay  between  dump  and  probe  laser  pulses,  and  k^  is  the  energy  transfer  rate 
constant.  The  populations  of  the  parent  and  satellite  peaks  were  obtained  from  the 
experimental  data.  The  number  densities  were  determined  from  the  peak  heights  after 
resolving  if  the  peak  area  and  peak  height  was  proportional.  For  this  purpose,  a  routine 
by  Bevington^  for  calculating  peak  area  was  modified  and  included  as  the  subroutine 
Area  in  the  Display  program  (Appendix  D).  A  cursory  analysis  indicated  proportionality 
at  short  delays.  In  measuring  the  peak  heights,  the  baseline  was  first  obtained  by 
subtracting  a  pump-dump-probe  spectrum  from  a  pump-probe  spectrum.  The  respective 
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Table  7.1:  Rate  Constants  for  Total  Population 
Loss  From  Individual  Rovibronic 
Levels  for  I2  (X)  v’ -23 


Collision  partner 

lCr[I,(X)]“ 

(10-‘“  cm^  s-') 

I2 

8.7 

At 

5.7 

He 

6.4 

N2 

6.7 

O2 

7.1 

H,0 

9.3 

a.  Error  Limits  ±0.5xl0  ‘°  cm^  s’' 
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P  and  R  branches  are  measured  and  averaged:  where  I  is  the  intensity  and  Ij  =  (Ip+Ir)/2. 
Plotting  [If  ]/[!;]  vs  t  yielded  a  slope  of  as  seen  in  Figure  7.10. 

During  collection  of  the  energy  transfer  data,  a  concerted  effort  was  made  to 
ensure  the  initially  prepared  and  collisionally  populated  lines  were  on-scale  for  the 
purpose  of  obtaining  the  ratio  of  peak  heights  [Ijf]/[Iji].  However,  the  limited  dynamic 
range  of  the  transient  digitizer  resulted  in  a  small  signal  intensity  for  [IjJ  as  a  result  of 
the  effort  to  keep  [IjJ  on  scale.  The  shot-to-shot  noise  in  the  baseline  for  large  AJ  was  a 
major  limitation  for  this  approach.  State-to-state  rate  constants  obtained  from  fitting  the 
I  / 1  ratios  for  iodine  self-transfer  were  generally  consistent  with  those  obtained 
by  computer  modeling. 

Computer  modeling  with  the  statistical  power  gap  law  was  the  second  and 
preferred  method  of  determining  state-to-state  rate  constants.  Once  again,  peak  heights 
were  obtained  in  the  same  manner  as  the  first  method.  But  the  peak  height  was  plotted 
as  a  function  of  the  degeneracy  where 

ln%^  =  -a[InAE]-HlnA  (7.1) 

and 

ki^f  =  ANlAE!-« 

Under  single  collision  conditions,  the  peak  height  is  representative  of  kj^f ,  N  is  the  spin 
degeneracy  factor,  a  and  A  are  parametric  constants,  and  AE=B[Jj(Jf+l)-Ji(Ji+l)]. 
Plotting  ln[I/N]  vs  ln[AE/B]  would  yield  the  fitting  parameter,  a,  as  shown  in  Figure 
7. 1 1.  Numerous  spin  degeneracy  factors  from  m-randomizing  to  m-conserving  Nq 


Figure  7.10:  (a)  Ratio  of  Experimental  Intensities  for  J59  vs  Delay  and 
(b)Observed  RET  Rates  Constants  for  I2  Self  Transfer 
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l2  (X)  v"=23,  Ji=57  +  Ar 


8 
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were  modeled  (more  on  this  in  Chapter  8).  Once  the  fitting  parameter  was  obtained,  the 
experimental  spectrum  would  be  simulated  using  the  computer  program  Display 
(Appendix  D).  The  parameters  were  adjusted  to  obtain  agreement  with  the  experimental 
spectrum.  The  SPG  coefficients  for  v"=23  are  listed  in  Table  7.2.  Examples  of 
simulations  for  iodine  self-transfer,  I^+Ar,  l2+He  and  I^+H^O  are  shown  in  Figure  7.12  - 
7.15,  respectively.  Individual  rotational  rate  constants  are  calculated  over  the  range 
1<J<101  using  equation  7.1  and  the  parameters  determined  from  the  simulation. 
Rotational  transfer  rate  constants  are  listed  in  Table  7.1.  A  representation  of  the 
individual  rotational  transfer  rate  constants  for  Ij+He  is  shovm  in  Figure  7.16. 

The  rotational  relaxation  rate  constants  for  iodine  self-transfer  were  fit  to  the 
energy  corrected  sudden  scaling  law  in  a  program  graciously  provided  by  K.  Holtzclaw 
of  Physical  Sciences  Inc.  The  program  was  implemented  to  calculate  the  k  matrix  as 
discussed  in  Chapter  2.  The  3j  coefficients  were  calculated  by  a  formula  given  by  Menzel 
and  Shore"*  as  / 

a  b  J 

U  0  0 


=  (-1)*:;;- 


g!  JA(abJ) 


(g-a)!(g-b)!(g-J)! 


where 


A(abJ)  = 


(a+b-J)!(a-b-J)!(-a+b+J)! 

(a+b+J+1)! 


2g=a+b+J 

For  the  energy  corrected  sudden  scaling  fit,  values  of  a=4.25xl0  ",  a=0.7052  and 
1  =0.804  A  were  obtained.  Fbdng  1,  =  0  (  [A^=l),  allowed  for  fitting  to  the  infinite  order 
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Table  12\  Rotational  and  Vibrational  Energy  Transfer 
Rate  Constants  with  Statistical  Power  Gap 
Law  Coefficients 


Collision 

I,  (X)  v"- 

=23 

partner 

Y 

N 

Kot- 

Nib 

He 

0.83 

2J+1 

5.2 

1.2 

Ar 

0.67 

2J<+1 

5.4 

0.3 

H^O 

0.96 

;i=45 

7.6 

1.7 

I2 

0.43^ 

2J+r 

8.70 

<0.1 

a.  Coefficients  calculated  by  considering  1  <  1 0 1 . 

b.  Units  of  10  ’°  cm^  s'* 

c.  Error  limits  ±0.5X10''°  cm^  s'*. 

d.  Error  limits  ±3X10"  cm^  s  '. 

e.  Y=  1.06  with  N=2J<±1 
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2537.5 
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Figure  7.12:  (a)  Simulation  of  Iodine  Self-Transfer  in  v"=23  and  (b)  High 

Resolution  LIF  Showing  Self-Transfer  of  I2  {D,  v'=34<-  X,  v'=23) 
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Figure  7.13;  (a)  Simulation  of  I2  (X)  v"=23  +  Ar  and  (b)  SEP-LIF  of  I2  +  Ar 


Wavelength  (A) 

Figure  7.14:  (a)  Simulation  of  I2  (X)  v"=23  +  He  and 
(b)  SEP-LIF  of  I2  +  He 
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2536.10  2536.45  2536.80  2537.15 

Wavelength  (A) 

Figure  7.15:  (a)  Simulation  of  I2  (X)  v"=23  +  H2O  and 
(b)  SEP-LIF  of  I2  +  H2O 
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Figure  7.16;  Rotational  Transfer  Rate  Constants  for  Iodine-Helium;  I2  (X)  v"=23. 
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sudden  approximation  and  values  of  a=4.49xl0  ’'  and  a-0.7062  were  obtained  for  I2  self 
transfer. 

The  vibrational  transfer  distribution  was  modeled  in  the  same  manner  as  v"=38  in 
Chapter  6.  First,  the  rotational  transfer  rate  was  determined  and  transfer  peaks  of  both 
VT  and  RT  origin  were  compared.  Satellite  peaks  originating  from  VT  were  assigned 
the  same  rate  constant  value  as  compared  to  RT  peaks  with  similar  heights.  When  the 
rotational  distribution  for  the  v-1  collisionally  populated  level  was  not  available,  the 
distribution  was  modeled  with  the  SPGL.  Since  the  rotational  contours  of  the 
vibrational  energy  transfer  were  consistent  with  a  tendency  to  conserve  angular 
momentum,  the  unobserved  peaks  in  the  vibrationally  populated  level  were  scaled  with 
the  a  of  the  SPGL  where 

kjyr23  J=57^vr22  J^)  =  C23.22NJAE„/Br 
The  total  vibrational  rate  constant  would  then  be  determined  by  summing  the  rates  from 
the  observed  and  SPGL  distributions.  Combining  the  observed  and  SPGL  distributions 
avoided  the  singularity  at  AE„(=0.  The  vibrational  transfer  rate  constants  are  listed  in 
Table  7.1 

In  addition  to  modeling  the  v-1  rotational  distribution  with  the  SPGL,  rotational 
contours  were  modeled  with  Gaussian  distributions  as  shown  in  Figure  7. 17.  The 
rotational  and  vibrational  rate  constants  were  then  normalized  to  the  total  loss  rate. 
Modeling  of  the  rotational  distribution  with  a  Gaussian  distribution  generally  produced  a 
smaller  k^  when  compared  with  SPGL  modeling. 
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Figure  7.17:  Rotational  Distribution  for  VT  Transfer  of  l2(X,v' -23,  J-=57^v"=22,  Jj)  +  He 
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A  few  general  trends  are  suggested  by  this  energy  transfer  data.  For  the  collisional 
partners  examined,  vibrational  relaxation  was  about  an  order  of  magnitude  slower  than 
rotational  redistribution,  and  governed  by  a  strong  Av=-1  propensity.  Non-reactive 
molecular  collision  partners  were  no  more  effective  than  rare  gas  atoms  in  causing 
vibrational  transfer.  The  primary  factor  controlling  the  vibrational  transfer  probabilities 
appeared  to  be  the  mass  of  the  collision  partner;  light  colliders  being  most  effective  in 
transferring  energy.  These  trends  are  consistent  with  vibrational-to-translational  energy 
transfer,  and  can  be  explained  by  classical  models.  Although  vibration-to-vibration 
transfer  could  occur  with  Oj  and  HjO,  it  seems  that  the  mis-matches  between  the  donor 
and  acceptor  frequencies  are  too  great  for  this  to  be  effective.^  Even  for  l2(A',v"<20)  + 
yiX)  collisions,  where  the  mis-match  in  vibrational  intervals  is  less  severe,  V-V  transfer 
does  not  appear  to  be  of  importance. 
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Chapters 

Comparison  of  Collisional  Dynamics  and  Studies  OF  E-E  Transfer 

§8. 1  Comparison  of  Collisional  Dynamics 

Compared  to  the  situation  for  yfi),  there  have  been  very  few  state-resolved 
studies  of  the  collision  dynamics  of  *  Gentry  and  co-workers^’^  measured  relative 
cross  sections  for  vibrational  transfer  out  of  v"=0)  and  l2(-^,  v"=5)  induced  by 
collisions  with  He  in  crossed  molecular  beams.  This  intriguing  series  of  experiments  was 
undertaken,  in  part,  to  examine  the  role  of  resonances  in  vibrational  energy  transfer 
Koffend  et  al.*  devised  an  ingenious  scheme  for  extracting  energy  transfer  rate  constants 
from  an  optically  pumped  laser  system.  They  obtained  upper  limits  for  the  rates  at  which 
rotational  levels  of  the  v"=42  and  v"=62  manifolds  were  depopulated  by  collisions  with 
\{X).  Additional  information  concerning  the  rate  constants  for  vibrational  relaxation  of 
highly  excited  levels  (v">20)  has  been  obtained  incidentally  from  studies  of  the 
electronic  to  vibrational  (E-^V)  energy  transfer  processes®’’ 

\,{X)  +  I(’P.,2)  ^  I,(X,v"*26-42)  +  ICP3,2)  (8.1) 

and 

l^X)  +  02('A)  ^ (8.2) 

Hall  et  al.®  used  a  pulsed  laser  to  initiate  reaction  (8.1)  in  the  presence  of  a  large  excess 
of  an  inert  buffer  gas  (He  or  Ar).  By  following  the  time  evolution  of  the  Ij  vibrational 
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population  distribution  they  determined  rate  constants  for  the  deactivation  of  I2(X, 
v"=40)  by  He,  Ar,  and  Ij.  All  three  were  found  to  be  efficient  vibrational  energy  transfer 
agents.  From  a  flow-tube  study  of  reaction  (8.2)  with  He  as  the  earner  gas,  van 
Benthem  and  Davis’  obtained  supporting  evidence  that  He  was  effective  in  relaxing  Ij  (X, 
v">20).  Both  of  these  studies  were  inspired  by  the  work  of  Heidner  et  al.,®  who 
characterized  the  kinetics  occurring  in  flowing  1J02CX)/At  mixtures.  Although 
vibrationally  excited  IjC-Y)  was  not  observed  directly,  its  participation  in  the  processes 
leading  to  electronic  excitation  and  dissociation  of  Ij  was  inferred  from  kinetic  models. 
Heidner  et  al.  reported  a  very  low  rate  constant  for  deactivation  of  excited  IjCA)  by  Ar. 
In  this  context,  deactivation  referred  to  relaxation  of  the  nascent  distribution  produced 
by  reactions  8.1  and  8.2  to  levels  with  v"<20.  As  this  would  required  the  dissipation  of  a 
considerable  amount  of  vibrational  energy,  the  large  v— >v-l  rate  constant  obtained  by 
Hall  et  al.  was  not  considered  to  be  in  disagreement  with  the  low  deactivation  rate. 
Indeed,  David  et  al.®  have  shown  that  the  flow-tube  kinetics  can  be  modeled  using  the 
rate  constants  of  Hall  et  al.  Necessary  constraints  required  by  the  model  were  that 
relaxation  proceeds  via  sequential  v— >v-l  steps,  and  that  the  rates  for  these  steps  scale 
linearly  with  v. 

To  my  knowledge,  there  have  been  no  other  quantitative  studies  of  rotational 
energy  transfer  within  highly  excited  vibrational  levels  of  IjC.^,  but  it  is  of  interest  to 
compare  the  present  results  with  corresponding  data  for  IjC^).  Selected  values  for  B 
state  rotational  transfer  rate  constants  are  reproduced  in  Table  5.2.  Here  it  can  be  seen 
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that  the  rate  constants  for  transfer  induced  by  He  and  Ar  are  quite  similar.  Larger 
differences  are  evident  when  the  rate  constants  for  Ij  and  Oj  are  compared.  It  is  tempting 
to  correlate  these  differences  with  the  fact  that  both  Ij  and  Oj  efficiently  quench  the  B 
state  via  collision  induced  predissociation.  Qualitative  differences  between  the  X  and  B 
state  rotational  transfer  characteristics  are  revealed  when  relative  state-to-state  rate 
constants  are  compared.  Data  suitable  for  this  purpose  are  available  for  I2(5)+He  and 
yiB)+\{X).  With  these  collision  partners,  the  probabilities  for  transferring  large  amounts 
of  angular  momentum  (|AJ|>15)  declined  more  slowly  with  increasing  |AJ|  for  X,  v=42 
than  for  the  B  state  levels.  An  example  of  this  trend  can  be  seen  in  Figures  5.4  and  6.7, 
where  the  D-X  spectrum  shows  broader  rotational  contours  than  the  f-B  spectrum 
recorded  under  identical  conditions.  Figure  8.1  shows  a  comparison  in  rotational  energy 
transfer  rate  constants  between  Ij+He  for  l^iX,  v"=23,  JpS?)  and  l2(5,v"=15,  Ji=59). 
Factors  which  favor  the  transfer  of  angular  momentum  are  seen  to  be  favored  in  the  X 
state  over  the  B  state.  Note  that  the  differences  between  the  spectra  shown  in  Figure  5.4 
cannot  be  explained  by  "energy  gap"  considerations,  as  the  rotational  constant  for  X, 
v"=42  (0.03155  cm"' )  is  larger  than  that  of.B,  v'=43  (0.01875  cm’' ).  Energy  gap 
considerations  are  frequently  used  to  explain  the  relatively  rapid  rates  of  vibrational 
relaxation  from  highly  excited  levels  of  anharmonic  oscillators.^  The  quantum-number 
scaling  relation  is  given  by 


203 


where  E,.  is  the  kinetic  energy  of  collision  in  initial  state  /.  This  relation  shows  that 
highly  excited  states  relax  more  rapidly  than  the  less  excited  ones,  even  in  the  absence  of 
anharmonic  effects. 

Pritchard  and  co-workers'®  reported  for  Na2*  +  Xe  that  a  different  y  was 
obtained  for  upward  and  downward  RT  transitions  until  they  assumed  A/Wj=0.  Polan)!  et 
al."  stated  the  asymmetry  between  upward  and  downward  RT  transitions  was  not 
removed  by  the  assumption  of  A»Jj=0.  They  explained  the  difference  between  their 
results  and  Pritchard's  was  as  a  consequence  of  the  experimental  conditions  of  the  bulb 
vs.  supersonic  expansion  of  a  molecular  beam  apparatus.  A  bulb  experiment  assumes  an 
initial  equilibrium  distribution  over  m,  states  in  which  all  the  mj  states  are  equally 
populated,  whereas  the  molecular  beam  experiment  cannot.  The  degeneracy  averaged 
cross-sections  for  upward  and  downward  transitions  are  related  by 

where  T  is  the  translational  energies  and  g  is  the  angular  momentum  degeneracies  for 
the  initial  and  final  states.  The  cross  section  is  related  to  the  SPGL  by 

Oj^.ocNCTf/Tiy'^IAEr  (8.3) 

Microscopic  reversibility  can  only  be  satisfied  with  a  single  value  of  y  since  |  AEj  j,|  must 
cancel.  Likewise,  H.  Chun  et  at.'^  reported  different  y  for  the  upward  and  downward 
transitions  in  their  RET  studies  of  (5^11)  with  IjCA'D),  Ar,  and  He.  In  my  fits  of  Ij 
self-  transfer  for  v"=23,  y  was  usually  0.03-0.05  smaller  for  than  J>.  One  possible 
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explanation  for  the  SEP-LIF  fits  having  two  ys  is  that  the  nij  distribution  with  respect  to 
the  collision  axis  may  have  been  non-random’^.  Since  the  pump-dump  lasers  for  SEP 
preparation  would  have  plane  polarization,  the  molecules  could  be  aligned. 

A  system  which  is  aligned  is  defined  having  equal  populations  of +/w  and  -m 
levels,  but  different  \m\  levels  have  different  populations.  This  system  would  have  a  net 
polarization  but  no  net  magnetization.  An  oriented  system  has  unequal  populations  of 
+m  and  -m  and  has  a  net  magnetization.  No  polarization  experiments  were  attempted  in 
this  dissertation  but  would  be  necessary  to  quantify  this  alignment.  The  dye  lasers  used 
in  these  experiments  were  mostly  vertically  polarized.  However,  this  explanation  appears 
questionable  since  the  polarization  effects  were  analyzed  by  Fei  et  al.’^  in  their  SEP 
studies  of  CN  and  they  found  their  population  to  be  unaligned.  A  second 
explanation  may  be  found  in  the  translational  energy  factor  of  equation  (8.3).  Energy 
transfer  to  smaller  Jj.  would  result  in  an  increase  of  higher  final  translational  energy 
resulting  in  diffusion  of  the  sample  out  of  the  probe  beam. 

There  has  been  considerable  discussion  for  a  A/w=0  selection  rule  for  rotational 
relaxation  based  on  experimental  evidence  fi-om  several  molecules.’'’  The  experimental 
results  of  my  RET  simulations  for  spin-conservation  are  inconclusive.  Generally,  spin 
conservation  of  the  low  molecular  weight  species  of  He  and  Ar  would  be  expected. 
While  the  fits  for  Ar  had  a  higher  correlation  for  2J<+1  degeneracy.  He  was  split 
between  2J^+1  for  v"=38  and  2J+1  for  v"=23.  For  the  remainder  of  the  collision 
partners,  a  randomized  N  produced  better  correlations. 
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A  comparison  of  the  rate  constants  between  common  collision  partners  for  the 
SEP-LEF  experiments  of  v"=42,  38  and  23  are  provided  in  Table  8.1.  No  trend  is  readily 
ascertained  from  the  inspection  of  these  results.  In  fact,  the  lack  of  a  trend  indicates  that 
for  high  vibrational  levels,  the  rotational  energy  transfer  is  not  significantly  different  than 
for  low  lying  states.  It  appears  reasonable  to  conclude  that  the  part  of  the  potential 
reasonable  for  RET  is  at  a  much  larger  length  than  the  part  giving  rise  to  VT  transfer. 
The  long  range  rotational  energy  transfer  is  unaffected  by  short  range  vibrational 
oscillations."' 

But  two  other  generalizations  are  worthy  of  note.  The  first  is  factors  favorable 
for  the  transfer  of  angular  momentum  are  more  prevalent  in  the  X  state  than  the  B  state 
as  seen  in  Figure  8.1.  Secondly,  the  state  rotational  constants  are  significantly  different 
from  the  X  state,  and  that  the  practice  of  modeling  the  ground  state  energy  transfer  using 
excited  state  constants  is  questionable.  The  difference  is  most  pronounced  for  Hj,  0^  and 
Ij  RET  constants.  Generally,  energy  transfer  is  comparable  for  v"=42,  38,  and  23.  The 
most  striking  comparison  is  for  the  total  loss  rate  constant  for  I2  +  H2  between 
v"=38,  Ji=49)  and  v'=15)'^  with  the  rate  constants  of  7.1x10'’°  and  14.0x10''°, 
respectively. 

Information  regarding  vibration  to  translation  (V-T)  energy  transfer  derived  from 
this  study  appears  to  be  in  qualitative  agreement  with  the  predictions  of  simple 
theoretical  models.  Typically,  the  models  indicate  that  the  v"^v"-l  rate  constants  will 
increase  with  v",  and  decrease  as  the  collision  reduced  mass  increases.  Some  years  ago. 
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Table  8.1:  Comparison  of  Rate  Constants  for  Common 
Collision  Partners  for  the  SEP-LIF 
Experiments  of  Individual  Rovibronic 
Levels  for  Ij  (X)  v"=42,  38,  and  23. 


Collision  k^P^WKlO'"  cm’  s'') 

Partner  v"=42  v"=38  v''=23 


h 

8.6 

6.6 

8.7 

He 

6.6 

5.4 

6.4 

Ar 

5.0 

5.5 

5.7 

0. 

7.8 

7.0 

7.1 

H^O 

- 

8.8 

9.3 

cm^  s'^) 

k 

8.6 

6.0 

8.7 

He 

6.0 

4.4 

5.2 

Ar 

5.0 

5.1 

5.4 

0^ 

7.2 

6.3 

- 

H20 

- 

6.2 

7.6 

kdl,(20](10-" 

cm^  s’^) 

I2 

<1 

6.0 

1.0 

He 

5.5 

10.0 

12.0 

Ar 

<1 

4.0 

3.0 

02 

4.5 

7.0 

- 

H,0 

- 

26.0 

17.0 
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Nesbitt  and  Hynes'^’’’  examined  a  classical  model  of  I2  +  M  (M=He,Ar,Xe)  vibrational 
energy  transfer  Their  calculations  indicated  that,  for  v"=40,  He  was  a  more  efficient 
transfer  agent  than  Ar  by  a  factor  greater  than  two.  Gentry  and  co-workers  have  argued 
that  IjCJSQ  He  V-T  transfer  can  for  low  vibrational  levels,  be  adequately  described  by  a 
forced  harmonic  oscillator  model.  In  the  low  energy  region,  they  proposed  that  the  cross 
sections  for  v"-^v"-l  transfer  )  scale  linearly  with  v",  which  is  the  first 
observation  of  the  simple  prediction  of  the  SSH  theory  of  vibrational  energy  transfer. 

When  the  V-T  rate  constants  were  known  only  for  the  lowest-lying  vibrational 
states,  it  was  possible  to  predict  the  values  for  the  vibrationally  excited  levels  using  SSH 
theory.  SSH  theory  predicts  the  probability  of  transition  from  state  v  to  v-1  as'* 

Pv.v.i  =  P(T)(v/(1-X.v))F(Y,,,,) 

where  P(T)  is  a  function  related  to  the  1-0  transition 

Xe  is  the  anharmonicity  of  the  molecule 
Y,..,=  (o.5A0/rAi-2x,v) 

F(Y)=0.5(3-e-"™)(e-"™) 

and  0  is  the  characteristic  temperature  for  VT  energy  transfer  and  is  defined 
0  =  (O.8153MhVF)/k' 

where  M  is  the  molecular  weight  of  the  gas 

V  is  the  fi'equency  of  vibration  of  the  lowest  vibrational  state 
h  is  Planck's  constant 

1  is  the  characteristic  interaction  distance  (»0.2A) 

In  a  crossed  molecular  beam  experiment,  Ma  et  al.  measured  the  05  4  cross  section 

relative  to  the  hard  sphere  scattering  cross  section,  a^.  At  a  collision  energy  of  0.38  meV 
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(equivalent  to  290°K)  they  obtained  a  ratio  of  054/0  =0.0045.  Assuming  linear  v"scaling, 
this  result  extrapolates  to  0424/0^=0.04.  Furthermore,  if  we  equate  o^  with  the  total 
removal  rate  constant  for  He  (Table  5.1),  this  extrapolation  predicts  a  V-T  rate  constant 
of  2.6x10'"  cm^  s'.  Considering  the  crudeness  of  this  model,  the  agreement  with  the 
SEP  result  is  reasonable.  In  addition,  there  are  two  plausible  reasons  why  this 
extrapolation  would  result  in  an  underestimation.  First,  the  total  inelastic  scattering 
cross-section  includes  contributions  from  velocity-changing  collisions.  Hence  the  ratio  of 
054  to  the  cross  section  for  rotational  and  vibrational  energy  transfer  will  be  greater  than 
054/0^.  Second,  anharmonicity  has  been  ignored,  and  we  are  dealing  with  a  level  that  is 
three  quarters  of  the  way  towards  dissociation.  An  important  effect  of  the  anharmonicity 
is  reduction  of  the  v"-»v"-l  energy  spacing  v^dth  increasing  v".  Figure  5.4  may  provide 
an  indication  of  the  influence  the  anharmonicity  has  on  the  V-T  transfer  probabilities. 
Within  the  ground  state,  only  Av=-1  transfer  was  observed.  The  v"=42,  Av±l  energy 
spacings  are  15 1  and  -153  cm'‘.  In  the  B  state,  where  Av=±l  and  ±2  transfer  was  easily 
seen,  the  n'=43  Av=±l  energy  spacings  are  42  and  -44  cm'' .  Note  that  the  Av±2 
processes  were  present  because  v'=43  and  the  surrounding  levels  are  close  to  the 
dissociation  limit,  and  therefore  highly  anharmonic. 

Computer  modeling  of  the  kinetics  yielded  a  rate  constant  for  v"=23— >22  transfer 
induced  by  HjO  at  »9xl0'"cm^  s'.  This  value  is  a  factor  of  three  smaller  than  the  rate 
constant  for  HjO  deactivation  estimated  by  Heidner  et  al.  and  used  in  COIL  system 


computer  models.  The  actual  discrepancy  is  greater  than  an  order  of  magnitude,  because 
the  deactivation  process  represents  transfer  from  levels  around  v"=40  to  levels  below 
v"=20.  As  it  may  take  many  transfer  to  achieve  deactivation,  these  results  imply  that  the 
effective  rate  constant  will  be  of  the  order  of  10  '^  cm^  s  \ 

Vibration-translation  transfer  probabilities  are  crucial  for  modeling  the 
deactivation  of  vibrationally  excited  iodine  and  its  role  in  dissociation  in  the  COIL.  A 
model  for  vibrational  deactivation  of  Ijf  by  He  in  the  COIL  device  has  been  analyzed  by 
M.  C.  Heaven  utilizing  the  rate  constants  determined  from  these  SEP-LIF  experiments. 
His  model  was  based  on  the  following  assumptions:  V-T  is  controlled  by  Av=±l 
selection  rule;  rate  constants  for  downward  transfer  scale  linearly  with  the 
vibrational  quantum  number  (SSH)  where  k^.i^v^vko^,;  upward  energy  transfer  rate 
constants  are  calculated  from  detailed  balance  where  =  ky.i^v  ®xp  (-Ey-E^.,)/kbT); 
and  where  the  rotational  distributions  are  thermalized.  A  coupled  rate  equation  describe 
the  V-T  process  is  given  by 

d[I„v]/dt=(k,^,.,  [l2,v+l]-(k^:^ +k,.,^.)[I„v])[He] 

The  calculation  was  performed  using  kg^,  =1.4x10  ’^  cm^  s  ’,  a  pressure  of  10  Torr  He, 
and  a  temperature  of  T=298°K.  The  initial  population  of  Ijt  at  time  t=0  is  assumed  as  a 


Gaussian  distribution  defined  as 
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where  Vg  is  the  distribution  center  («40),  Av  is  the  width  (»10),  and  Ng  is  a  constant 
normalized  to  give  a  total  number  density  of  3xl0’“  cm'^.  Some  results  of  the  model 
were: 

(i)  The  effective  rate  constant  is  independent  of  He  pressure 

(ii)  The  model  indicates  that  a  single  pressure  independent  rate 
constant  for  +  He  is  adequate 

(iii)  The  effective  rate  constant  is  not  strongly  dependent  on  the 
temperature  or  the  initial  state  distribution 

§8.2  Studies  OF  E-E  Transfer:  +  CF3I  and  Ig  +  O3 

This  section  serves  as  historical  documentation  of  experiments  which  were 
hypothesized  as  populating  highly  vibrational  excited  levels  in  Ij  (X),  but  populated  the 
A'  state  instead.  Translationally  hot  I(^i/2)  was  generated  by  248  nm  photolysis  of  CF3I. 

CF3I+  hv  (248  nm)^  CF3  +  I('P,/2) 

lfP./2)  +  l2^I('P3/2)  +  l2(^') 

Surprisingly,  collisions  of  l2(.^  with  hot  I(^,/2)  resulted  in  direct  excitation  of  IjC/f'), 
indicating  that  both  electronic  and  kinetic  energy  was  transferred. 

The  experimental  apparatus  is  similar  to  Figure  3.1  with  the  exception  that  the 
photolysis  laser  was  a  Lumonics  KrF  laser  instead  of  a  Nd:  YAG  laser.  Trifluoromethyl 
iodide  was  chosen  as  an  precursor  because  it  is  an  inefficient  quencher  of  I(^P,;2)- 
Hall  et  al.  were  able  to  detect  vibrationally  excited  Ij  (X)  produced  by  collisional  energy 
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transfer  between  and  IfPiJ,  where  I(^,/2)  was  prepared  by  photolysis  of  CF3I  at  266 
nm.  For  our  experiments,  the  delay  times  between  the  photolysis  (KrF;  248  nm)  and 
probe  laser  were  varied  from  4  to  9  ps.  Pressures  were  nominally  100  mXorr  CF3I,  200 
mXorr  and  500  mXorr  Ar.  Delays  and  pressures  were  varied  as  well  as  using  a 
flowing  system  with  CF3I  in  order  to  produce  vibrationally  excited  Ij  (X).  Results  of  the 
CF3I +I2  generating  D-A '  are  shown  in  Figure  8.2  along  with  a  comparison  of  the 
corresponding  D-X  system  of  l2(A^  with  cold  I(^P,/2)- 

Xhe  second  experiment  which  populated  I2  (A')  was  the  energy  transfer  between 

photolyzed  ozone  and  iodine. 

O3+  hv  (248  nm)^  02f  2,v)  +  0(^P) 

-^02('A)  +  OOD) 

0('D)  +  l2(^->l2(^')  +  0(^P) 

An  ozone  generator  producing  a  corona  discharge  generated  ozone  from  oxygen  with 
98%  efficiency.  Xhe  ozone  was  photodissociated  at  248  nm  producing  02('A), 

0(^P),  and  0('D).  Xhe  experimental  apparatus  was  the  same  as  in  the  CF3I  + 12  studies. 
Indirect  confirmation  of  the  presence  of  02(' A)  was  required  because  of  its  long 
radiative  lifetime.  A  germanium  detector  observed  I(^Pi/2)  emission  at  1.315  pm 
resultingfrom  the  near  resonant  collisional  energy  transfer  between  02(*A)+I(^P3/2) 
02(^S)+I(^Pi/2)-  In  addition,  a  PMX  monitored  02(’S)^  02(^2)  +  hv  emission  at  762  nm 
where  202('A)->02(’S)+02(^I).  Pressures  in  the  chamber  were  nominally  600  mXorr  O3 
and  100  mXorr  I2.  As  with  the  CF3I  + 12  experiment,  direct  population  of  the^'  state  was 
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observed  for  the  collisional  energy  transfer  between  O'D  and  Ij.  Results  of  the  D’-A ' 
spectrum  for  O3  +  Ij  are  shown  in  Figure  8.3. 

In  addition  to  photolyzing  O3  at  248  nm,  I  attempted  to  produce  02('A)  by 
pumping  O2  at  1.064(j,m  with  the  fiindamental  of  a  Nd:YAG  laser.  No  signal  was 
observed  from  the  PMT  while  monitoring  321  nm  (D-X),  340  nm  (D'-A'),  762  nm 
(02(^2)— >02(^2)  +  hv),  or  with  the  Ge  detector  at  1.315  pm  [I(^P,/2)— >'I(^P3/2)  hv]. 
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Appendix  A 

Spectroscopic  Constants 


The  Hamiltonian  for  a  diatomic  molecule  with  n  electrons  is 


2 

H=X 


N=1 


2  n  ,  n  2 

-h^  V72  ,  y  -hV2  ,  ^  y  ^  y  V 

2mN^N  2m.  «  4«£„  ^  |ri-rj|  4n£o  jfj 


.  1  ZaZbs^  tj 

Iri-R^r  4n£o|RA-RBr 


which  include  the  nuclear  kinetic  energy,  the  electronic  kinetic  energy,  the  electron-electron 
repulsions,  the  electron-nuclear  attractions,  the  nuclear-nuclear  repulsion,  and  the  spin  orbit 
coupling,  respectively.  The  Bom-Oppenheimer  approximation  allows  us  to  separate  the 
electronic  and  nuclear  motion.  Since  the  nuclei  are  much  more  massive  than  the  electrons, 
the  electrons  adjust  instantaneously  to  the  motion  of  the  nuclei.  In  this  time  reference,  the 
nuclei  are  considered  fixed  at  nuclear  separation  R  while  the  electronic  motion  is  solved. 
The  electronic  Schrodinger  is  written 

H ,  =  y  -s! _ 1- V  y 

"  2me  »  In-rjl  ki-RNl 

V  =  1  ZaZbb^ 

Vnn-  4,^0  |Ra-RbI 

After  separating  out  the  translational  motion,  the  coordinate  system  of  the  kinetic  energy 
operator  is  transformed  from  cartesian  coordinates  into  spherical  polar  coordinates  and 
the  angular  momentum  operator  L^as  shown 
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h^f  28^1 

2ti\rdr 


arV 


The  resulting  dififerential  equation  is  separable  into  radial  and  angular  parts,  with  the 
angular  portion  assuming  a  product  form  of  the  spherical  harmonics  for  the 

eigenfiiction  \|/ 

v|/(r,0,(j))=YJ0,(j))R(r) 


Applying  the  operator  and  dividing  by  2|ir^ 


l2  _  lO+l^v 


Substituting  the  V  product  into  the  Schrodinger  Equation  and  dividing  by  the  spherical 
harmonic  produces  ^  +  V(r)R  =  ER 


This  differential  equation  is  only  in  terms  of  the  electronic  separation  r.  A  displacement 
variable  s  is  introduced  into  the  radial  Schrodinger  equation. 

S(s)=S(r-rJ  =  rR(r) 

£s  _  -^2m  , 

5s2  -  H  rer 


After  substituting  the  displacement  variable  s  and  multiplying  by  r,  the  radial  Schrodinger 
equation  becomes 
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A  power  series  expansion  of  the  displacement  variable  s  and  truncating  the  expansion 
after  the  first  term 

1  1  2s  6s^  24s^  . 

(s-re)2  ri  rl  ri  r? 

and  the  radial  Schrodinger  equation  approximated  in  terms  of  a  vibrating-rotating 
diatomic  molecule  (this  approximation  neglects  the  coupling  of  the  vibrational  and 
rotational  motions)  is 

-g^  +  V(s  +  r,)S(s)  =  E'S(s) 

g/  =  g _ K^l(l+1) 

2ial 

Substituting  the  solution  for  the  energy  of  the  harmonic  oscillator  problem,  the  possible 

eigenstate  energies  for  the  diatomic  may  be  approximated 

E„j  =  (n  +  i)ho  +  J!^^ 

The  quantum  mechanical  analysis  of  the  energy  depends  on  the  vibrational 
quantum  number  v  and  the  rotational  quantum  number  J.  The  J  dependence  is 
expressed  as  J(J+1),  and  the  v  dependence  as  (v+14).  The  energy  of  a  vJ  level  may  be 
expressed  as 

E,;  =  +  Y,o(V+>/2)  +  Y,o(V+>/2)^  +  Y3„(V+1/2)^ 

+  Yo,  J(J+1)  +  Y„(v+H)J(J+l)  +  Y^i  J(J+l)(v+>/2)" 

+  J^(J+1)^  +  Y,3(v+>/2)f  (J+1)^ 

+  Yo3  j\mf 
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and  written  in  the  general  form  known  as  the  Dunham  expansion 

E„=XY^(u+0"[ja+i)]'‘ 


where 


Yqo  -  electronic  term  energy; 

Y,o  -  harmonic  (equilibrium)  vibrational  frequency  constant;  co^ 
Yjo  -  equilibrium  anharmonicity  constant; 

Y30  -  second  equilibrium  anharmonicity  constant;  © 

Ygj  -  equilibrium  rotational  constant; 

Yo2  -  equilibrium  centrifugal  distortion  constant;  -D^ 

Yqj  -  second  equilibrium  centrifugal  distortion  constant; 

Yji  -  vibration-rotational  coupling  constant ;  -a^ 

-  Ye 

Yn  -  Pe 


Y^'s  are  called  Dunham  coeflScients.  If  B//  w/  is  small,  the  Ys  can  be  related  to  the 
ordinary  band  spectrum  constants.  For  most  molecules,  the  ratio  B//  w/  is  of  the 
order  lO"® .  For  iodine,  the  ratio  of  B//  w/  for  the  D  state  is  4.75510  ® .  Now 
substituting  the  Dunham  coefficients  with  the  common  spectroscopic  constants, 

EvJ  =  T,  +  ©.(v+y2)  -  ©X  (v+'/2)"  +  ©^,  (V+'/2)® 

+  BJ(J+1)  -  a.  J(J+l)(v+‘/2)  +  yJ(J+l)(v+>/2)' 

-  D/(J+1)2  +  p.  J'(J+l)"(v+y2) 

+  H/(J+1)® 
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The  complete  description  of  the  energy  levels  in  a  vibrating-rotating  diatomic  molecule 
require  numerous  fitting  parameters.  In  order  to  reduce  the  number  of  parameters, 
molecular  constants  e.g.  ,Dy  ,H^ ...  are  often  reported  in  the  literature. 

The  vibrational  energy  of  a  rotationless  molecule  is  defined  as 

G^  =  0,(v+y2)  -  CDJCe  (V+’/2)^  +  ©eYe 

Both  the  rotational  and  centrifiagal  distortion  constants  are  dependent  upon  the 
vibrational  quantum  number.  The  rotational  molecular  constant,  B^  is  defined  as 

B,  =  B, -a,  (v+y2)  +  Y,(v+>/2)^ 

During  rotation  of  the  molecule,  the  chemical  bonds  stretch  as  centrifugal  force  pushes 
the  nuclei  farther  apart.  As  the  vibrational  quantum  number  v  increases,  both  B^  and 
decrease.  The  centrifugal  distortion  constant  ,  is  given  by 

D,  =  D.  +  |3,(v+y2) 

Including  the  second  order  anharmonicity  constant  the  rotational  energy  is 

Fj=B^(j+i)-D/(j+i)^  +iy^(j+iy 

The  energy  levels  of  the  molecules  are  given  in  terms  of  the  electronic,  vibrational  and 
rotational  quantum  numbers.  With  the  energy  partitioned  according  to  its  electronic, 
vibrational,  and  rotational  energy  states,  the  total  energy  can  be  expressed  in  the  consise 
form 


Ev,=  T.  +  G,  +  F; 
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Polynomial  representations  are  extremely  useful  as  they  express  the  molecular 
constants  in  a  concise  form.  From  a  pragmatic  view,  computational  code  for 
calculations  of  the  spectroscopic  energy  is  simplified  since  only  a  fraction  of  the  terms 
are  required.  For  example,  for  the  Ij  B-X  system,  62  molecular  constants  are 
represented  by  a  9  term  polynomial  expansion.  The  references  for  the  spectroscopic 
constants  of  the  respective  electronic  state  of  iodine  are  provided  below. 
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Table  A.1:  Resonant  Transitions  of  the  1064.55  nm 
Nd:YAG  Fundamental  Used  for  the 
SEP-LIF  Dump  Laser  of  the  B-X  system 


pump 

v"=0 

J=107 

16,343.934 

pump 

v"=l 

J=107 

16,131.961 

pump 

v"=2 

J=107 

15,921.224 

dump 

v'=6 

J=108 

9,393.513 

probe 

v"=37 

J=109 

pump 

v"=0 

J=47 

16,542.000 

pump 

v"=l 

J=47 

16,328.955 

pump 

v"=2 

J=47 

16,117.144 

dump 

v'=7 

J=48 

9,393.614 

probe 

v"=38 

J=49 

pump 

v"=0 

J=48 

16,541.142 

pump 

v"=l 

J=48 

16,328.108 

pump 

v"=2 

J=48 

16,116.308 

dump 

v'=7 

J=49 

9,393.116 

probe 

v"=38 

J=50 

cm 

pump 

v"=0 

J=76 

16,840.159 

pump 

v"=l 

J=76 

16,627.528 

pump 

v"=2 

J=76 

16,416.132 

dump 

v'=10 

J=77 

9,393.782 

probe 

v"=40  J=78 

pump 

v"=0 

J=81 

16,814.970 

pump 

v''=l 

J=81 

16,602.430 

pump 

v"=2 

J=81 

16,391.125 

dump 

v'=10 

J=82 

9,393.011 

probe 

v"=40  J=83 

pump 

v"=0 

J=88 

17,134.887 

pump 

v"=l 

J=88 

16,922.484 

pump 

v"=2 

J=88 

16,711.316 

dump 

v'=10 

J=89 

9,393.316 

probe 

v"=42  J=90 
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Sample  Calculation  of  Vibrational  Energies  (Gy)  For  I2 
Using  Dunham  Expansion  Coefficients  of  M.  L.  Nowlin  and 
M.  C.  Heaven 


ORIGIN^O 
YIO  =95.11746327 
Y20  =-0.111495227 
Y30  :=- 5.792874546- lO’'^ 
Y40  :=4.205281828  10'* 


YOO  :=41026.16614 
Y50  :=- 1.408244378- 10"  * 
Y60  := 2.6873688- 10'" 
Y70  :=- 2.3 114805- 10  *'' 


GVl(n)  :  =  Y10-(n+  0.5)  -H  Y20-(n+  0.5)^-i-  Y30-(n-h  0.5)V  Y40-(n-h  0.5)“ 
GV2(n)  :=  Y50-(in-  0.5)^  -h  Y60-(n-h  0.5)*-)-  Y70-(n-h  0.5)’ 

GV(n)  :  =  GVl(n)-HGV2(n) 

TV(n)  :  =  GV(n)-)- YOO 


b  :=0..20 


c  :=21..41 


d:=42..62 


b  GV(b)  TV(b) 


0 

47.5308 

41073.6969 

1 

142.4234 

41168.5895 

2 

237.0879 

41263.2541 

3 

331.5211 

41357.6872 

4 

425.7197 

41451.8859 

5 

519.6807 

41545.8469 

6 

613.4011 

41639.5672 

7 

706.878 

41733.0441 

8 

800.1085 

41826.2746 

9 

893.09 

41919.2561 

10 

985.8198 

42011.9859 

11 

1078.2953 

42104.4615 

12 

1170.5142 

42196.6804 

13 

1262.474 

42288.6401 

14 

1354.1724 

42380.3386 

15 

1445.6073 

42471.7734 

16 

1536.7763 

42562.9425 

17 

1627.6776 

42653.8438 

18 

1718.3091 

42744.4753 

19 

1808.6689 

42834.8351 

20 

1898.7552 

42924.9213 

IL 

11 

11 

11 

11 

36 

J7 

11 

11 

4£ 

41 


GV(c) 

TV(c) 

1988.5661 

43014.7322 

2078.1 

43104.2661 

2167.3553 

43193.5214 

2256.3303 

43282.4964 

2345.0236 

43371.1898 

43459.6 

2521.5595 

43547.7257 

2609.3994 

43635.5655 

2696.9522 

43723.1183 

2784.2168 

43810.3829 

2871.192 

43897.3581 

2957.8767 

43984.0429 

3044.27 

44070.4362 

3130.3709 

44156.5371 

3216.1785 

44242.3447 

3301.692 

44327.8581 

3386.9105 

44413.0766 

3471.8333 

44497.9994 

3556.4597 

44582.6258 

3640.7891 

44666.9552 

3724.8208 

44750.987 

d 

11 

43 

44 

45 

11 

11 

11 

11 

51 

11 

11 

11 

11 

IZ 

11 

11 

ll 

62 


GV(d) 

TV(d) 

3808.5544 

44834.7205 

3891.9893 

44918.1554 

3975.1251 

45001.2912 

4057.9613 

45084.1274 

4140.4976 

45166.6637 

4222.7336 

45248.8997 

4304.6691 

45330.8352 

4386.3038 

45412.4699 

4467.6375 

45493.8036 

4548.67 

45574.8361 

4629.4012 

45655.5674 

4709.8311 

45735.9972 

4789.9595 

45816.1256 

4869.7864 

45895.9526 

4949.3119 

45975.478 

5028.5359 

46054.7021 

5107.4586 

46133.6248 

5186.0801 

46212.2463 

5264.4005 

46290.5667 

5342.42 

46368.5861 

5420.1388 

46446.3049 

Sample  Calculation  for  SEP  Experiment  for  v''=38 

Energy  =  +  Bv*J*(J+l)  -  Dv*j2*(J+l)2  +Hv*j3*(J+l)3 

TvJ  =  2Ynk(v+l/2)njk(J+l)k 


Calculate  Energy  for  Pump  Transitions  from  I2  ( X;  v"— 2,  J-47) 

Pump  =425.375  +  0.037081 1-47-48-  4.62- 10' ^-47^- 48^-  6.410'^®47^-48^ 
Pump  =  509.006  cm‘^ 


Calculate  Energy  for  Pump/Dump  Transitions  forY'i  (B;  v'— 7,  J— 48) 

Dump  =16560.7847 +  0.027808113-48-49-  7.16672- 10' ^-48^-49^-  4.142- 10' ^*-48^-49^ 
Dump  =  16626.15  cm"^ 


Calculate  Energy  for  Dump  Transitions  to  I2  (X;  v"-38,  J-49) 

Probe  :  =  7153.625  + 0.032225-49-50-  6.74-10‘®-49^-50^-  3.51-10'^*-49^-50^ 


Probe  =7232.536  crn'l 
Dumptransition  :=Dump  -  Probe 

Dumptransition  =  9393.614  cm"^ 


1-10'^ 

Dumptransition 


1064.553  nm 


Bpp  := 0.0322252 
Bp  =0.020246 


Calculate  Energy  for  Probe  Transitions  from  I2  (X;  v"— 38,  J-49)  to  I2  (D;  v'-lO,  J-48,50) 
org  :  =  42011.891  -  1260.1  AO  J  :  =  49 

ForR:  m  =J+  1 

R:=org+((Bp  +  Bpp)-m)  +  (Bp-Bpp)-(m)^  R  =  34723.827  em-^ 

ForP:  m  =-J 

P  :=org+ ((Bp  + Bpp)-m)  +  (Bp- Bpp)-(m)^  P  =  34719.818  cm"^ 


Optical-Optical  Double  Resonance  for  I2  (fi  v'— 44,  J— 49)  Resonant  with  I2  (B;  v"-7,  J— 48) 

¥00  =47025.917  ¥02  :  =  - 3.32-10"^  ¥11  :=- 5.728- 10'* 

¥10  =104.1804  ¥01  := 0.0208042 

¥20  :=-0.21324  ¥30  +0.000246  ¥21 +5.8- 10'* 

OODRl  +¥00  +  ¥10-44.5+  ¥20-44.5^+  ¥30-44.5^  ¥01-49-50+  ¥02-49^-50^ 

OODR2  +¥11-44.5-49-50+  ¥21-44.5^-49-50 


OODR  =  OODRl  +  OODR2 

OODR  =  51306.341  cm'^  OODR- Dump  =34680.191  crn'l 
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Calculation  of  Molecular  Constants  for  I2  -D(0''‘u)  With  Error  Analysis 

This  section  generates  Tanaka's  data  [Mathcad  5.0] 

i:  =  0..5  Cg  := 41028.584 

Cj:=94.9928  C2:  =  -0.10919  C3  :=-5.805  10''‘  :=  3.686- 10‘®  C5--7.6MO'® 


E(v)  :  =  ^c.-[(v+0.5)‘] 
i 

E(  119)  =50396.56640423 
This  section  reads  the  SEP-LIF  data  points 
k  :=16..66  Xj^  :  =  k-i-58 

y^:=41451.971  :  =  41545.835 

y^  =41639.559  yj  :  =  41733.007  y^  :=41826.277 

yj  :=41919.192  y^  =42011.985  y.^  := 42 104.469 

yg  =43810.369  y^  :  =  43897.365  y^^,  := 43984.051 
yj2  := 44156.549  := 44242.345  yj^  := 44327.845 


p  =0..  7 

Xp-p  +  4 

pp  :=  8..  15 
X  :=pp+22 

PP 

p2:=67..232 
X  :=p2+  58 

p2 

yjj  := 44070.471 
y^j  =44413.091 


Bartels,  DonovanTlolmes,  Langridge-SmithMacDonald,  and  Ridley;  J  Chem  Phys  7355  (1989) 
yj  where  1  =v-58  e.g.  y67  =  v(125)  jQy  115  VDPl  320.419 


yg,  :=  50653.7  +  VDPO  y^^  :=  50713.4  -t-  VDPO 
y^j  :=  50891.8  +  VDPO  y^^  =50950.6  +  VDPO 

y,,  :=  51 125.8  +  VDPO  y,^  :=  51 183.3  +  VDPO 
=51355.4  +  VDPO  y^,,  =5141 1.9  +  VDPO 

yg3  =51367.8  + VDPl  y^^  := 51423.7  +  VDPl 

y„,  := 51590.2  +  VDPl  y„  =51858.0  +  VDPO 

y„,  =52021.8  +  VDPO  y„.,  := 52076. 1  +  VDPO 

■'91  92 

y^j  := 52236.5  +  VDPO  y^  := 52289.3  +  VDPO 


y,„  :=  50773.3  +  VDPO  y,„  =50832.5  +  VDPO 

''69  *^70 

y.„  := 5 1009.4  +  VDPO  y„  +51067.6  +  VDPO 

''13  ’'lA 

y„  :=  5 1240.6  + VDPO  y^g  +51297.9  +  VDPO 
y„,  +51468.8  +  VDPO  y„  +51525.0  +  VDPO 

ygj  +51480.3  +  VDPl  y^  +51748.2  +  VDPO 

ygg  +51913.1  +  VDPO  y^,,  +51967.8  +  VDPO 

y^3  +52129.9  +  VDPO  y^  +52183.4  +  VDPO 

y„,  +52343.2  +  VDPO  y„„  +52395.7  +  VDPO 
yv  y© 
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:= 52448.2 +  VDPO  -  52500.5  +  VDPO  y^^^  :=  52552.5  +  VDPO 
^103  =52656.2  +  VDPOy^Q^  :  =  52707.9  -t-  VDPO  :=  52758.5  +  VDPO 
:=  52860.8  +  VDPOyj^g  :=  52910.8  +  VDPO  :=  52961.6  +  VDPO 
^111  =53061.6  +  VDP0yjj2  =53112.0  +  VDPO  y^^g  :=53161.5  +  VDPO 
y^jj  :  =  53259.5  +  VDPOy^j^  =  53308.8  +  VDPO  yjj,  ;=  53144.1  +  VDPl 
^119  =53241.6  +  VDPlyj2o  =  53289.3  +  VDPl  yj2i  =  53550.8  +  VDPO 
y  :  =  53646.6+-VDP0y,-,  :  =  53693.8  + VDPO  y  :=  53741.2  + VDPO 

^127  =53835.5  +  VDP0yj2g  =  53881.7  +  VDPO  y^^p  :=  53928.5  +  VDPO 
^131  =54020.8  +  VDP0yj32  := 54067.2  +  VDPO  y^^^  ■=  541 12.9  +  VDPO 
^135  '  54203.5  +  VDPOy^jg  ;=  54249.1  +  VDPO  y^^^  ■-  54294.1  +  VDPO 
^139  =54383.7  +  VDPOyj^  :  =  54428.7  +  VDPO  y^^j  :=  54473.1  +  VDPO 
y.„  :  =  54561.2  + VDPO 
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yi02:  =  52603.9  + VDPO 

y,„^;=  52810.0  + VDPO 
•'106 

5301 1.9  + VDPO 

y,,^  :=  53210.7  + VDPO 
■^114 

y„  .=  53193.0  + VDPl 
yj22:  =  53598.7  + VDPO 
yi2g:  =  53788.0  + VDPO 
yi3o:=  53974.8  + VDPO 
y  =54158.3  + VDPO 
yi3g  :=  54339.1  +  VDPO 
y,^_=  54517.2  + VDPO 
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Hoy  and  Lipson,  Chemical  Physics  140, 187  (1990) 

54604.92  yj^5  54648.57  y^^  54691.93  y^^^  54735.17 
y^^^ +54778.25  y^^^ +54821.33  y^^^ +54864.26  y^^^  +  54906.92  y^^^  -  54949.28 
y^^^ +54991.42  y^j^  +  55033.62  yj55+ 55075.79  y^^^  =  551 17.57  y^^,  +  55159.43 

yj5g  +  55200.85  y^^^ +  55242.10  yj^„  + 55283.12  y^^^ +55324.11  y^^^  =  55365.06 

yj^3 +55405.85  y^^^  +  55446.25  y^^^  +  55486.69  y^^^  +  55526.98  y^^  +  55567.09 

y^^^  +  55607.17  y^^^  +  55646.87  y^,^  =55686.43  y^^j  +  55725.97  y^^^  =  55764.80 
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=  55804. 19 
yns  =55997.98 
yjg3:= 561 88.08 
yiS8  =56374.61 
y, ,3  =56557.73 
yi98  =56737.21 
y203  =56913.47 
y^03:=  57086.49 
=57256.16 
y^is  =57422.6 
y^:=  57585.67 
y228  57745.08 


yn4  =55843.21 
yj,g:=  56036.31 
y^g^- 56225.63 
yi89  =56411.59 
yi94:=  56593.87 
yj^:=  56772.68 
y^o,  =56948.28 
y209  =57120.64 
y^H  =57289.93 
y2j,:=  57455.48 
y^^,  =57617.96 
y229  57776.96 


yj^3:= 55882.37 

yi80  =56074.53 

yi85  =56263.17 

y^^  =56448.31 

y^^j- 56629.89 

y^oo -56807.94 

y205  =56983.13 

y2io  =57154.84 

y2j3:=  57323.29 

y  := 57488.37 
.^220 

y22J  =57650.02 
y23,,  57808.06 


yi76  ^=55921-10 
y,,,:= 561 12.62 
y, 86  =56300.36 
yi9i  -56484.95 
yj^:=  56665.80 
y^o,- 56843.23 
y206  =57017.75 
y2jj:=  57188.79 
y2i6  =57356.69 
y22r=  57520.84 
y226  =57682.09 
y23i  57839.16 


yj^^:=  55959.98 
yi82  =56150.31 
yi87  =56337.61 
yi92  =56521.36 
yj^,:=  56701.57 
y2o,:=  56878.44 
y207  =57052.14 
y2i2  =57222.56 
y^^,:= 57389.61 
y22,:=  57553.38 
y^^,- 57713.73 
57870.01 


r  0..  15 


sd  :=0.01 
r 


r:=16..66 
sd  =0.03 

r 

r:=67..  143 
sd  :=0.5 

r 

r:=144..232 
sd  :=0.5 

r 


Loading  W=s  x  s  weight  matrix 

where  v=4  to  1 1  and  30  to  37  sd  =0.01  SEP-LIF  data 

v=74tol24  sd=0.03  Ishiwata  and  Tanaka 

v=124to  201  sd=0.5  Bartels,  Donovan Jlolmes,Langridge-Smith, 

MacDonald,  and  Ridley 

v=202  to  290  sd=0.5  Hoy  and  Lipson 


hh:=144..232 
yta.=yhh+ 107.1 15 


yj^g  =  56028.215 
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s:  =  0..  232  m:=7  t:  =  0..m  np  :=rows(y) 


B 


(a'^-w-a)  *• 


A^  W  y 


Molecular  constants  for  I2  D 


4.102616614*10'' 

95.11746327 

-0.111495227 

-5.792874546*10“'' 

4.205281828*10“® 

-1.408244378*10“* 

2.68736882*10“" 

-2.3114805*10“" 


83.10^  = 
B -10® 

4 


Residuals; 
r  y  AB 


Variance 


Var 


r^r 


np  m 


Var  =0.1307648 


Standard  deviation 

Sdev:=  Sdev  =0.3616142 

i  0 


Variance-  Covariance 
VCM  :=Varj,-(A’'-A)  ^ 


-5.7928745 

=  4.2052818 
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Residuals  plot 

i  :  =  0..np-  1  ii  =0..  10 
i  :  =  0..232 


Standard  Deviation  for  fitted  parameters: 

I  0..m 

ERj  VCMj  j 

Correlation  Matrix 

k  :=0..m  j  :  =  0..m 


0,291151156 
0.037671533 
0.001433341 
2.424332385«10'‘* 
2.111479032-10"’ 
9.860194139-10“^' 
2,345990745- 10“*‘ 
2.232859147- 10“^' 


Error  band  calculation 
v;=0..290  j  :  =  0..m 

D.  :=(v+0.5y 

J.V 
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Calculation  of  Potential  Energy  Diagram  for  l2X,B  and  D  states  using  Morse  Potential 

state  Estate  Estate 


we  :=  214.5186 
De  :=  12244 
re  :=  2.67 

M  :=  126.904 
c  :=  2.99792458  10 


bwe  =  125.670 
bDe  :=  19881.048 
bTe  :=  15769.0485 
bre  :=  3.016 


10 


hbar  =  1.0545887- 10 
M-M 


dwe  ;=  95.124 
dDe  :=  63026.128 
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Appendix  B 
Lasers 

In  commercial  laser  designs,  the  source  of  excitation  energy  is  usually  electrical  or 
optical.  Both  excitation  sources  pumped  the  laser  radiation  sources  used  in  the  SEP-LIF 
studies:  excimer  (electrical)  and  Nd:YAG  (optical).  An  overview  of  both  radiation 
sources,  dye  lasers,  dye  structures  and  optical  materials  is  provided. 

The  behavior  of  the  rare  gas  atom  can  be  modified  by  ionization,  or  excitation  to 
a  higher  electronic  state,  where  there  is  an  attractive  force  with  another  atom.  The  two 
atoms  are  bound  together  creating  an  exdted-state  Aimer,  or  excimer.  The  noble  gases 
upon  excitation,  forms  a  bound  state  with  a  halide.  Since  the  energy  required  for  the 
excitation  of  the  noble  gas  is  high,  the  photons  obtained  by  radiation  from  the  excimer  to 
the  ground  state  are  some  of  the  shortest  wavelengths  (e.g.  ArF  X=193  nm)  available  in 
commercial  lasers.  Laser  wavelengths  become  shorter  for  lighter  rare  gases  which  high 
higher  ionization  potentials,  and  heavier  halogens,  which  have  lower  electron  affinities. 

A  potential  energy  diagram  of  the  XeCl  is  shown  in  Figure  B.  1 .  The  repulsive  ground 
state  makes  for  an  ideal  two-level  laser.  The  radiative  state  lifetime  (t=1  1  ns)  of  the 
ionically  bound  excimer  state  at  2.9  A  is  short  by  normal  electronic  transition  standards 
but  orders  of  magnitude  longer  than  the  ground  state. 

In  a  similar  manner,  the  aurora  borealis  is  a  result  of  rare-gas  oxides  (ArO*, 

KrO*,  XeO*)  in  the  northern  polar  sky  (southern  hemisphere  is  the  aurora  australis). 
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The  atomic  transitions  for  the  neutral  oxygen  atoms  are  the 'S— >'D  and  The 

rare-gas  oxides  have  lased  in  the  vicinity  of  558  nm  where  the  lasing  transition  for  all 
these  systems  occur  between  two  excited  states  of  atomic  oxygen.  Excimer  lasers 
operating  off  these  transitions  are  known  as  aurora  lasers. 

Excimer  lasers  electrically  excite  gaseous  media  like  the  noble  gases,  whereas 
optical  pumping  is  successful  for  a  variety  of  solid  state  media  and  organic  dyes.  The 
properties  of  neodymium-doped  yttrium  aluminum  garnet  (Nd:YAG)  are  the  most 
understood  of  all  solid  state  laser  media.  Triply  ionized  neodymium  (Nd  is  optically 
pumped  by  krypton  flashlamps  whose  output  matches  absorption  bands  in  the  red  and 
near  IR.  The  energy  level  diagram  for  neodymium  in  yttrium  aluminum  garnet 
(Nd:  YAG)  is  shown  in  Figure  B.2.  Unlike  the  excimer  laser,  the  excited  level  of  the  Nd"^^ 
has  a  long  lifetime  (^=255  ps),  and  a  large  population  of  the  excited  state  can  form.  In 
order  to  prevent  laser  oscillation  during  inversion  build-up,  a  Q-switch  is  employed. 

The  components  of  the  Q-switch  are  a  polarizer,  a  quarter-wave  polarization 
rotator,  and  a  Pockels  cell.  A  Q-switch  is  an  electro-optical  svdtch  which  is  opened  and 
closed  by  application  of  a  voltage.  Applying  voltage  to  the  Pockels  cell  changes  its 
polarization  retardation  characteristics.  With  no  voltage  applied,  the  Pockels  cell  has  no 
effect  on  the  polarization  of  radiation.  The  polarizer  vertically  polarizes  light  entering 
the  Q-switch  and  the  quarter-wave  polarization  rotator  converts  the  radiation  to 
circularly  polarized.  The  cavity  mirror  reflects  the  circularly  polarized  radiation  back 
through  the  quarter-wave  plate  converting  the  radiation  to  horizontally  polarized.  Since 
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the  polarizer  only  transmit  vertically  polarized  light,  oscillation  ceases.  With  voltage 
applied  to  the  Q-switch,  the  Pockels  cell  retards  the  polarization  of  the  quarter-wave 
plate.  The  light  reflecting  from  the  cavity  mirror  remains  vertically  polarized  and  the 
laser  oscillates. 

The  cavity  mirror  at  the  output  end  is  called  an  output  coupler.  The  output 
coupler  allows  partial  transmittance  of  the  laser  light,  and  the  transmitted  radiation  forms 
the  output  of  the  laser.  The  unique  'doughnut'  beam  shape  of  the  Spectra  Physics  DCR-2 
design  is  due  to  an  unstable  resonator  design.  In  resonator  design,  both  cavity  length  and 
mirror  curvature  are  important.  The  stability  condition  for  a  resonator  is  given  by 
0<gig2<l  where  g„=l-L/R^,  L  is  the  cavity  length  and  R  is  the  mirror  curvature. 

Unstable  resonators  have  the  inherent  advantage  of  having  large  beam  diameters, 
thereby  extracting  energy  fi'om  active  media  with  large  cross-sectional  areas.  The 
resonator  in  the  Spectra  Physics  is  a  diffraction  coupled  resonator  (DCR)  and  produces 
a  collimated  shaped  beam. 

The  collimated  shaped  beam  can  be  spatially  filtered  by  a  process  in  which  the 
beam  intensity  is  made  uniform.  Spatial  filtering  is  accomplished  by  focusing  the  beam 
with  a  positive  lens  precisely  at  a  pinhole.  Since  only  collimated  light  is  focused  at  the 
pinhole.  The  laser  beam  diameter  at  the  spatial  filter  input  is  determined  fi'om  =Dl  + 
20L  where  Dl  is  the  laser  beam  diameter,  0  is  the  half  angle  beam  divergence  in  radians 
(0.0005  radians  for  PDL-1),  and  L  is  the  distance  fi’om  the  laser  to  the  filter.  The 
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focused  spot  size  (i.e.  the  size  of  pinhole)  is  given  by  S=1.27  X,  where  is  the 
focal  length  of  the  lens. 

Both  primary  radiation  excitation  sources  were  used  to  optically  pump  liquid  dye 
lasers.  When  laser  dyes  are  irradiated,  higher  vibrational  levels  of  the  first  excited  singlet 
state  are  populated  by  optical  pumping  from  thermally  populated  rovibronic  levels  in  the 
So  ground  state.  With  collisions  induced  by  the  solvent  molecules  (usually  methanol  or 
ethanol),  the  excited  dye  molecules  undergo  very  fast  radiationless  transitions  into  the 
lowest  vibrational  level  Vq  of  Sj  with  relaxation  times  of  10  ”-10  '^  s.  The  laser  transition 
occurs  between  the  low  vibrational  levels  of  Sj  and  Sq.  With  the  dense  rovibrational 
manifolds  within  the  Sq  and  Sj  states,  the  broad  band  emission  allows  for  continuous 
tuning.  The  potential  energy  diagram  for  a  typical  dye  laser  is  shown  in  Figure  B.3 

As  shown  in  the  potential  energy  diagram,  the  low-lying  vibrational  levels  of  S, 
can  be  depopulated  either  by  spontaneous  emission  into  different  rovibronic  levels  of  Sq 
or  by  radiationless  transitions  into  a  lower  triplet  state  T,  (intersystem  crossing).  While 
the  intersystem  crossing  is  a  forbidden  transition  due  to  spin  change,  sufficient 
population  can  build  in  the  Tj  state.  Transition  from  the  T,->So  (phosphorescence)  is 
also  forbidden.  Unfortunately,  the  range  of  the  laser  transition  fi-equencies  usually 
coincides  with  the  Tj-^Tj  transition  and  this  transition  can  quickly  quench  laser  activity. 
Flowing  dye  circulators  producing  a  smooth  laminar  volume  are  invariantly  used  to 
circumvent  this  problem  by  removing  the  triplet  species  fi'om  the  laser  gain  region. 


r 


Figure  B,3:  Potential  Energy  Diagram  for  a  Dye  Laser  Showing 
Intersystem  Crossing  from  Singlet  to  Triplet 
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In  spite  of  some  of  the  difficulties  associated  with  the  dye  laser  (e.g.  limited 
lifetime,  waste  disposal),  the  broad  tuning  range  made  available  by  different  dyes  allows 
continuous  tuning  over  the  visible  spectrum.  The  chemical  structure  of  some  common 
laser  dyes  is  shown  in  Figure  B.4  Due  to  the  high  gain  of  many  of  the  dye  lasers,  a 
minimum  concentration  of  the  dye  is  used  to  prevent  amplified  spontaneous  emission 
(ASE).  In  most  dye  lasers,  the  ASE  originates  in  the  oscillator  dye  cell  and  is  further 
amplified  in  the  following  stages  of  the  dye  laser.  The  advantage  of  ASE  is  that  it 
generates  intense  radiation  without  an  optical  cavity.  The  disadvantage  of  ASE  is  that  it 
is  a  broadband  emission  which  occurs  at  a  lower  wavelength  and  contributes  to  spectral 
pollution  of  the  monochromatic  source  and  lower  power.  The  power  of  the  dye  laser  is 
also  reduced  by  degradation  of  the  dye.  Additives  to  coumarin  dyes  can  extend  the 
lifetime  by  over  a  factor  of  three.  DABCO  l,4-diazabicyclo[2.2.2]  octane  stabilizes 
coumarin  by  quenching  singlet  oxygen  produced  by  photooxidation  of  the  dye  and 
quenches  an  excited  triplet  state. 

In  addition  to  dyes,  frequency  conversion  can  be  produced  by  nonlinear  effects.  In 
1961,  researchers  at  the  University  of  Michigan  focused  a  ruby  laser  onto  a  crystal  of 
quarts  and  detected  two  outputs:  one,  the  ruby  laser  at  694.3  nm  and  a  second  at  347.2 
nm.  A  generalized  picture  of  nonlinear  optics  is  if  the  polarization  in  not  proportional  to 
the  electric  field,  then  the  system  is  nonlinear.  This  is  in  contrast  to  a  linear  system  where 
the  polarization  is  proportional  to  E.  A  listing  of  crystals  which  lack  inversion  symmetry 
and  exhibit  nonlinear  effects  are  listed  in  Table  B.  1 
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Rhodamine  6G 


Coumarin 


LDS  (Stryrl  7) 


Figure  B.4:  Molecular  Structure  of  Some  Common 
Laser  Dyes 
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While  non-linear  crystals  are  used  for  frequency  conversion,  another  special  piece 
of  crystalline  glass  known  as  an  etalon  can  be  used  for  frequency  narrowing  of  the  laser 
output.  In  order  to  increase  the  single  axial  output  of  from  a  TEMqo  laser,  an  etalon 
consisting  of  two  surfaces,  finely  polished  to  a  very  fine  degree  of  parallelism,  can  be 
inserted  into  the  laser  cavity.  The  etalon  acts  as  a  fixed  spaced  Fabry-Perot  cavity 
whose  resonances  are  broader  than  the  longer  laser  cavity  [If  the  plate  spacing  can  be 
varied,  the  device  is  called  an  interferometer].  The  resonator  frequency  spacing  is  given 
by  Aco=7tc/L  where  L  is  the  cavity  length  given  by  ^-1  2  where  q  is  an  integer. 

Secondly,  the  separations  between  the  etalon  resonant  frequencies  are  larger  than  the 
laser's.  Therefore,  losses  are  introduced  into  some  cavity  resonances  and  the  laser 
operates  on  a  single  cavity  mode  with  the  smallest  loss.  Tilting  of  the  etalon  with  respect 
to  the  optical  axis  of  the  laser  shifts  the  frequency  of  the  etalon  resonances  within  the 
laser  cavity.  The  light  is  dispersed  in  the  oscillator  according  to  the  Littrow  condition 
^0=  (2sin  a)/(KxN),  where  K  is  the  grating  constant  (groves/nm)  and  N  is  the  grating 
order.  Only  light  matching  this  condition  is  reflected  back  into  the  oscillator  cavity 
providing  the  required  feedback  for  lasing.  Continuous  scanning  with  an  etalon  requires 
a  precise  synchronization  of  the  etalon  tilt  >vith  the  grating  angle  for  high-Q  resonance 
matching  in  the  oscillator  cavity. 
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Table  B.  1 :  Nonlinear  Crystals  Which  Lack  Inversion  Symmetry 


Abbreviation 

Crystal  Name 

Formula 

AD*P 

Ammonium  Dideuterium  Phosphate 

(NDJD^PO. 

KDP 

Potassium  Dihydrogen  Phosphate 

KH2PO4 

CDA 

Cesium  Dihydrogen  Phosphate 

CSH2ASO4 

p-BBO 

Barium  Metaborate 

BaBOj 

LiNbOj 

Lithium  Niobate  (V) 

LiNbOS 

Proustite 

Silver  Arsenic  Sulfide 

AgjAsSj 

KTP 

Potassium  Titanyl  Phosphate 

KTi0P04 

RDA 

Rubidium  Dihydrogen  Arsenate 

RbH2P04 
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Appendix  C 
Franck-Condon  Principle 

The  Franck-Condon  principle  predicts  the  intensity  of  transitions  between  the 
vibrational  levels  of  different  electronic  states.  The  electronic  states  of  a  diatomic  are 
represented  by  a  potential  energy  diagram  as  a  function  of  the  potential  energy  versus 
the  intemuclear  distance,  r.  The  Franck-Condon  principle  states  that  all  electronic 
transitions  occur  on  a  vertical  path  (r  is  a  constant).  The  separation  between  nuclei 
remains  constant  in  its  time  reference  since  bound  electrons  can  readjust  their  orbits 
instantaneously  compared  to  the  vibrational  motion  of  the  more  massive  nuclei. 

Vibrational  wavefimctions  oscillate  much  less  rapidly  near  the  end  points  of  the 
potential  energy  curve  than  in  the  region  between  the  turning  points.  Classically,  the 
turning  points  correspond  to  extremes  of  oscillatory  motion  where  the  velocity  is  zero. 
The  classical  turning  point  is  where  the  vibrational  motion  changes  direction.  Since  the 
molecule  spends  more  time  near  the  extremes,  the  probability  of  transition  is  increased. 
The  probability  of  transitions  between  two  electronic  states  is  dependent  upon  the 
overlap  of  the  vertical  transition  with  respect  to  the  vibrational  wavefimction.  The 
vertical  transition  has  the  highest  probability  since  the  relatively  massive  nuclei  have 
nearly  the  same  positions  and  velocities  before  and  after  an  electronic  transition. 

In  the  Bom-Oppenheimer  approximation,  the  nuclear  potential  energy  is  a 
function  of  the  nuclear  coordinates  and  the  nuclear  and  electronic  wavefimctions  are 
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separable.  The  wavefiinction  of  a  vibrating  molecule  may  be  written  as  a  product  of  the 
electronic  and  vibrational  wavefianction 

<Vt/j]R|\}/>  =<H/rf¥jRe+RvlM^c.Vvi>  (C- 1) 

where  and  R^  are  the  transition  moment  operators  for  transitions  between  electronic 

and  vibrational  states,  respectively.  Expanding  C.  1 

<Vt/^R|\}/>  =  <M/JM/^>  <¥jRelVe.>  +  <¥eJV|/e>  <VjRvlVvi> 
since  the  electronic  wavefunctions  are  members  of  the  same  complete  orthogonal  set, 

the  second  term  vanishes  and 

<VjR|V|/>  =  <\|/J\|/vi>  <yef|RelVei> 

The  integral  <\|/Jv|/,^>  is  known  as  the  Franck-Condon  integral  and  multiplies  the 
electronic  transition  matrix  element.  The  probability  of  the  electronic  transition  is 

I  <V|/JR|V>P  =  |<Vvf|V|/^>P  l<V|/ef|Rekei>P 

where  is  the  Franck-Condon  factor  for  the  v"  ->  v'  vibrational  band  of  the 

electronic  transition.  Summing  Franck-Condon  factors  over  all  v' 

Z|<>|/JR|v>f=l 

Tables  C.  1  and  C.2  contain  Franck-Condon  factors  for  B-X  and  D-X, 
respectively.  The  Franck-Condon  factors  were  calculated  by  first  calculating  RKR 
turning  points  fi'om  the  spectroscopic  constants.  Vibrational  wavefunctions  were 
computed  for  these  potentials  by  the  Numerov-Cooley  solution  from  which  the 
Franck-Condon  factors  and  R  centroids  were  obtained  by  integration  of  the  wave 


function. 
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Table  C.  1 :  Franck-Condon  Factors  for  B-X 


v"\v' 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

0 

1.66E-09 

2.41E-08 

1.79E4)7 

9.12E-07 

3.57E-06 

1.15E-05 

3.18E-05 

7.73E-05 

1.69E-04 

3.36E-04 

6.19E-04 

1 

4.19E-08 

5.53E-07 

3.73E-06 

1.72E-05 

6.10E-05 

1.77E-04 

4.41E-04 

9.63E-04 

1.89E-03 

3.36E-03 

5.52E-03 

2 

5.18E-07 

6.17E-06 

3.74E-05 

1.54E-04 

4.91E-04 

1.27E-03 

2.81E-03 

5.43E-03 

9.35E-03 

1.45E-02 

2.08E-02 

3 

4.18E-06 

4.44E-05 

2.40E-04 

8.81E-04 

2.47E-03 

5.61E-03 

1.08E-02 

1.80E-02 

2.65E-02 

3.49E-02 

4.16E-02 

4 

2.47E-05 

2.32E-04 

l.lOE-03 

3.54E-03 

8.59E-03 

1.68E-02 

2.73E-02 

3.81E-02 

4.59E-02 

4.81E-02 

4.36E-02 

5 

1.14E-04 

9.38E-04 

3.87E-03 

1.06E-02 

2.18E-02 

3.55E4)2 

4.70E-02 

5.15E-02 

4.63E-02 

3.32E-02 

1.74E-02 

6 

4.29E-04 

3.04E-03 

1.07E-02 

2.46E-02 

4.13E-02 

5.32E-02 

5.31E-02 

4.01E-02 

2.08E-02 

5.15E-03 

2.64E-05 

7 

1.35E-03 

8.11E-03 

2.37E-02 

4.41E-02 

5.76E-02 

5.38E-02 

3.41E-02 

1.15E-02 

2.75E-04 

4.70E-03 

1.75E-02 

8 

3.63E-03 

1.81E-02 

4.25E-02 

6.10E-02 

5.66E-02 

3.13E-02 

6.49E-03 

6.47E-04 

1.29E-02 

2.71E-02 

2.90E-02 

9 

8.45E-03 

3.41E-02 

6.17E-02 

6.28E-02 

3.39E-02 

4.99E-03 

2.58E-03 

2.01E-02 

3.21E-02 

2.49E-02 

8.48E-03 

10 

1.73E-02 

5.43E-02 

7.13E-02 

4.37E-02 

6.89E-03 

3.29E-03 

2.47E-02 

3.41E-02 

1.97E-02 

2.48E-03 

2.43E-03 

v'V 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

0 

1.06E-03 

1.72E-03 

2.63E-03 

3.83E-03 

5.35E-03 

7.17E-03 

9.29E-03 

1.16E-02 

1.42E-02 

1.68E-02 

1 

8.42E-03 

1.21E-02 

1.63E-02 

2.09E-02 

2.55E-02 

2.97E-02 

3.33E-02 

3.59E-02 

3.74E-02 

3.76E-02 

2 

2.74E-02 

3.35E-02 

3.83E-02 

4.11E-02 

4.13E-02 

3.89E-02 

3.45E-02 

2.84E-02 

2.16E-02 

1.49E-02 

3 

4.48E-02 

4.37E-02 

3.84E-02 

3.02E-02 

2.06E-02 

1.16E-02 

4.71E-03 

8.20E-04 

9,89E-05 

2.05E-03 

4 

3.37E-02 

2.11E-02 

9.73E-03 

2.24E-03 

1.51E-05 

2.59E-03 

8.18E-03 

1.44E-02 

1.93E-02 

2.15E4)2 

5 

5.05E-03 

J.OOE-05 

2.76E-03 

1.03E-02 

1.83E-02 

2.33E-02 

2.33E4)2 

1.90E-02 

1.24E-02 

5.89E-03 

6 

5.54E-03 

1.60E-02 

2.42E-02 

2.56E-02 

2.01E-02 

1.13E-02 

3.59E-03 

9.59E-05 

1.43E-03 

6.05E-03 

7 

2.69E-02 

2.63E-02 

1.71E-02 

6.25E-03 

3.222E-0 

1.71E-03 

8.07E-03 

1.49E-02 

1.82E-02 

1.69E-02 

8 

1.82E-02 

5.14E-03 

3.90E-06 

4.80E-03 

1.38E-02 

1.97E-02 

1.86E-02 

1.21E4)2 

4.63E-03 

3.70E-04 

9 

4.07E-05 

5.43E-03 

1.65E-02 

2.18E-02 

1.73E-02 

7.83E-03 

9.37E-04 

8.29E-04 

6.18E-03 

1.24E-02 

10 

1.52E-02 

2.34E-02 

1.83E-02 

6.72E-03 

1.29E-04 

3.20E-03 

1.13E-02 

1.67E-02 

1.54E-02 

9.21E-03 
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Table  C.  1 :  Franck-Condon  Factors  for  Ij  B-X  (continued) 


v"\v' 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

30 

3.22E-05 

1.02E-03 

1.12E-02 

5.10E-02 

3.57E-06 

2.63E-02 

1.40E-02 

4.06E-02 

2.53E-03 

3.27E-02 

4.59E-03 

31 

9.23E-06 

3.62E-04 

5.04E-03 

3.08E-02 

7.94E-02 

6.21E-02 

7.35E-05 

4.40E-02 

8.45E-03 

2.86E-02 

6.16E-03 

32 

1 

2.40E-06 

1.15E-04 

2.02E-03 

1.61E-02 

5.92E-02 

8.44E-02 

1.91E-02 

1.82E-02 

3.78E-02 

3.59E-03 

3.17E-02 

33 

5.64E-07 

3.31E-05 

7.21E-04 

7.39E-03 

3.70E-02 

8.28E-02 

5.62E-02 

6.20E-05 

4.49E-02 

7.36E-03 

2.87E-02 

34 

1.20E-07 

8.54E-06 

2.30E-04 

2.98E-03 

1.98E-02 

6.41E-02 

8.29E-02 

1.62E-02 

1.96E-02 

3.72E-02 

3.38E-03 

35 

2.28E-08 

1.97E-06 

6.52E-05 

1.06E-03 

9.13E-03 

4.08E-02 

8.45E-02 

5.43E-02 

l.lOE-04 

4.47E-02 

8.25E-03 

36 

3.83E-09 

4.04E-07 

1.64E-05 

3.33E-04 

3.65E-03 

2.18E-02 

6.63E-02 

8.31E-02 

1.67E-02 

1.84E-02 

3.89E-02 

37 

5.68E-10 

7.36E-08 

3.66E-06 

9.20E-05 

1.27E-03 

9.94E-03 

4.20E-02 

8.53E-02 

5.64E-02 

4.40E-07 

4.34E-02 

38 

7.66E-11 

1.18E-08 

7.18E-07 

2.23E-05 

3.88E-04 

3.89E-03 

2.21E-02 

6.62E-02 

]8.52E-02 

2.02E-02 

1.50E-02 

39 

9.74E-12 

1.64E-09 

1.23E-07 

4.72E-06 

1.02E-04 

1.31E-03 

9.80E-03 

4.10E-02 

8.53E-02 

6.19E-02 

4.35E-04 

40 

7.36E-13 

1.88E-10 

1.79E-08 

8.61E-07 

2.34E-05 

3.79E-04 

3.67E-03 

2.08E-02 

6.39E-02 

8.85E-02 

2.73E-02 

41 

1.69E-15 

1.82E-11 

2.29E-09 

1.36E-07 

4.63E-06 

9.44E-05 

1.17E-03 

8.79E-03 

3.79E-02 

8.40E-02 

7.05E-02 

42 

7.56E-15 

2.05E-12 

2.55E-10 

1.83E-08 

7.79E-07 

2.00E-05 

3.18E-04 

3.11E-04 

1.82E-02 

5.94E-02 

9.18E-02 

43 

5.37E-14 

3.40E-13 

2.30E-11 

2.05E-09 

l.lOE-07 

3.61E-06 

7.31E-05 

9.25E-04 

7.21E-03 

3.30E-02 

8.06E-02 

44 

1.87E-16 

6.62E-17 

1.07E-12 

1.85E-10 

1.30E4)8 

5.44E-07 

1.41E-05 

2.30E-04 

2.36E-03 

1.47E-02 

5.27E-02 

45 

4.10E-14 

5.90E-14 

1.61E-14 

1.24E-11 

1.23E4)9 

6.66E-08 

2.24E-06 

4.74E-04 

6.36E-04 

5.33E-03 

2.68E-02 

v'V 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

30 

I2.04E-02 

1.48E-02 

3.87E-03 

2.29E-02 

3.42E-03 

7.77E-03 

1.84E-02 

3.15E-03 

4.06E-03 

1.54E-02 

31 

2.75E-02 

2.09E-04 

2.45E-02 

6.25E-03 

7.59E-03 

1.99E-02 

1.97E-03 

7.43E-03 

1.68E-02 

4.03E-03 

32 

4.77E-03 

2.03E-02 

1.38E-02 

4.70E-03 

2.24E-02 

2.20E-03 

9.56E-03 

1.73E-02 

1.61E-03 

6.08E-03 

33 

6.36E-03 

2.68E-02 

5.00E-04 

2.48E-02 

4.55E-03 

9.62E-03 

1.86E-02 

7.27E-04 

9.85E-03 

1.56E-02 

34 

3.21E-02 

3.71E-03 

2.19E-02 

1.15E-02 

6.75E-03 

2.14E-02 

7.99E-04 

1.23E-02 

1.53E-02 

3.29E-04 

35 

2.71E-02 

8.16E-03 

2.49E-02 

1.52E-03 

2.51E-02 

2.32E-03 

1.27E-02 

1.62E-02 

8.85E-06 

1.29E-02 

36 

2.09E-03 

3.35E-02 

1.89E-03 

2.45E-02 

8.05E4)3 

1.02E-02 

1.93E-02 

6.17E-06 

1.54E-02 

1.21E-02 

37 

1.12E-02 

2.38E-02 

1.18E-02 

2.16E-02 

3.97E-03 

2.44E-02 

4.45E-04 

1.66E-02 

1.24E-02 

7.20E-04 

38 

4.20E-02 

5.34E-04 

3.50E-02 

2.83E-04 

2.73E-02 

4.03E-03 

1.49E-02 

1.54E-02 

8.75E-04 

1.82E-02 

39 

4.04E-02 

1.66E-02 

1.85E-02 

1.75E-02 

1.64E-02 

8.57E-03 

2.17E-02 

1.86E-04 

2.01E-02 

7.43E-03 

40 

9.75E-03 

4.56E-02 

9.90E-05 

3.51E-02 

3.67E-04 

2.89E-02 

7.58E-04 

2.02E-02 

9.82E-03 

4.35E-03 

41 

2.88E-03 

3.47E-02 

2.48E-02 

1.15E^2 

2.49E-02 

9.63E-03 

1.54E-02 

1.63E-02 

2.96E-03 

2.15E-02 

42 

3.84E-02 

4.03E-03 

4.77E-02 

2.76E-03 

3.20E-02 

3.94E-03 

2.72E-02 

3.07E-04 

2.39E-02 

3.79E-03 

43 

8.10E-02 

9.39E-03 

2.57E-02 

3.51E-02 

4.27E-03 

3.21E-02 

3.01E-03 

2.31E-02 

8.81E-03 

9.35E-03 

44 

9.35E-02 

5.37E-02 

2.33E-04 

4.58E-02 

1.05E-02 

2.43E-02 

1.22E-02 

2.09E-02 

4.72E-03 

2.36E-02 

45 

7.41E-02 

9.13E-02 

2.21E-02 

1.42E-02 

4.48E-02 

8.66E-05 

3.58E-02 

2.79E-06 

2.84E-02 

1.90E-03 
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Table  C.  1 :  Franck-Condon  Factors  for  B-X  (continued) 

012345678 


20  6.53E-02  7.79E-02  3.44E-03  4.76E-02  9.05E-03 

21  4.50E-02  9.42E-02  3.05E-03  5.07E-02  9.66E-04 

22  2.84E-02  9.41E-02  2.59E-02  2.90E-02  2.19E-02 

23  1.64E-02  8.05E-02  5.84E-02  4.87E-03  4.66E-02 

24  8.76E-03  6.03E-02  8.31E-02  2.48E-03  4.57E-02 

25  4.28E-03  4.00E-02  8.99E-02  2.60E-O2  2.11E-02 

26  1.92E-03  2.37E-02  7.96E-02  5.97E-02  1.06E-03 

27  7.90E-04  1.26E-02  5.98E-02  8.32E-02  8.46E-03 

28  2.97E-04  6.05E-03  3.89E-02  8.65E-02  3.95E-02 

29  1.02E-04  2.62E-03  2.22E-02  7.25E-02  7.19E-02 

30  3.22E-05  1.02E-03  1.12E-02  5.10E-02  8.65E-02 


2.15E-02  2.70E-02  2.47E-04  2.51E-02  1.62E-02  3.43E-04 

3.98E-02  3.89E-03  1.91E-03  2.36E-02  1.65E-06  1.88E-02 

2.73E-02  5.37E-03  3.26E-02  2.20E-03  1.61E-02  2.19E-02 

3.55E-03  3.02E-02  1.40E-02  8.44E-03  2.73E-02  1.81E-03 

5.30E-03  3.63E-02  1.51E-04  3.02E-02  7.48E-03  9.48E-03 

3.21E-02  1.35E-02  1.92E-02  2.18E-02  2.94E-03  2.71E-02 

4.86E-02  1.77E-04  3.72E-02  9.05E-04  2.57E-02  1.18E-02 

3.41E-02  1.97E-02  2.17E-02  1.17E-02  2.58E-02  8.51E-04 

7.48E-03  4.51E-02  7.26E-04  3.50E-02  3.09E-03  2.22E-02 

1.68E-03  4.11E-02  1.21E-02  2.66E-02  7.71E-03  2.74E-02 

2.63E-02  1.40E-02  4.06E-02  2.53E-03  3.27E-02  4.59E-03 


20  1.81E-02  1.79E-02  1.22E-03  6.29E-03  1.79E-02  l.llE-02  4.76E-04  4,41E-03  1.35E-02  1.24E-02 

21  1.86E-02  4.08E-04  1.03E-02  1.93E-02  6.31E-03  6.33E-04  1.14E-02  1.53E-02  5.99E-03  2.76E-06 

22  4.59E-04  1.27E-02  1.97E-02  3.19E-03  3.74E-03  1.64E-02  1.21E-02  9,05E-04  3.57E-03  1.27E-02 

23  1.27E-02  2.09E-02  1.93E-03  7.13E-03  1.88E-02  7.70E-03  2.40E-04  l.OlE-02  1.49E-02  5.93E-03 

24  2.37E-02  2.14E-03  9.19E-03  1.99E-02  4.52E-03  2.62E-03  1.54E-02  1.21E-02  9.59E-04  3.53E-03 

25  4.56E-03  8.96E-03  2.13E-02  3.14E-03  5.58E-03  1.81E-02  7.98E-03  1.89E-04  9.95E-03  1.43E-02 

26  5.77E-03  2.38E-02  3.51E-03  7.41E-03  1.95E-02  4.89E-03  2.40E-03  1.50E-02  1.15E-02  6.59E-04 

27  2.58E-02  6.43E-03  7.11E-03  2.10E-02  3.52E-03  5.24E-03  l,76E-02  7.35E-03  3.53E-04  1.05E-02 

28  1.42E-02  4.13E-03  2.33E-02  3.94E-03  7.02E-03  1.90E-02  4.36E-03  2.87E-03  1.51E-02  l.OlE-02 

29  2.66E-04  2.48E-02  6.97E-03  6.74E-03  2.06E-02  3.06E-03  5.87E-03  1.73E-02  5.96E-03  8.76E-04 


30  2.03E-02  1.48E-02  3.87E-03  2.29E-02  3.42E-03  7.77E-03  1.84E-02  3.15E-03  4.06E-03  1.54E-02 
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Table  C.2:  Franck-Condon  Factors  for  Ij  D-X 


v"  \  v' 

3 

4 

5 

6 

7 

8 

9 

10 

33 

2.83E-06 

1.46E-05 

5.98E-05 

2.03E-04 

5.85E-04 

1.46E-03 

3.19E-03 

6.18E-03 

34 

9.44E-06 

4.53E-05 

1.72E-04 

5.42E-04 

1.44E-03 

3.04E-03 

6.60E-03 

1.16E-02 

35 

3.04E-05 

1.35E-04 

4.74E-04 

1.37E-03 

3.33E-03 

6.92E-03 

1.25E-02 

1.95E-02 

36 

9.19E-05 

3.75E-04 

1.21E-03 

3.17E-03 

6.97E-03 

1.30E-02 

2.07E-02 

2.82E-02 

37 

2.59E-04 

9.66E-04 

2.82E-03 

6.68E-03 

1.31E-02 

2.16E-02 

2.97E-02 

3.42E-02 

38 

6.81E-04 

2.30E-03 

6.03E-03 

1.27E-02 

2.19E-02 

3.10E-02 

3.59E-02 

1  3.29E-02 

39 

1.66E-03 

5.02E-03 

1.17E-02 

2.15E-02 

3.18E-02 

3.75E-02 

3.42E-02 

2.24E-02 

40 

3.73E-03 

9.99E-03 

2.03E-02 

3.20E-02 

3.92E-02 

3.62E-02 

2.32E-02 

7.72E-03 

41 

7.72E-03 

1.80E-02 

3.12E-02 

4.07E-02 

3.89E-02 

2.51E-02 

7.99E-03 

2.02E-05 

42 

1.46E-02 

2.89E-02 

4.14E-02 

4.23E-02 

2.84E-02 

9.19E-03 

1.98E-05 

6.61E-03 

43 

2.48E-02 

4.08E-02 

4.61E-02 

3.34E-02 

1.17E-02 

1.04E-04 

6.89E-03 

2.02E-02 

44 

3.75E-02 

4.91E-02 

4.01E-02 

1.63E-02 

5.37E-04 

6.36E-03 

2.12E-02 

2.32E-02 

45 

4.97E-02 

4.82E-02 

2.39E-02 

2.02E-03 

4.89E-03 

2.15E-02 

2.46E-02 

1.02E-02 

v"  \  v' 

30 

31 

32 

33 

34 

35 

36 

37 

20 

2.45E-03 

3.50E-03 

4.83E-03 

6.45E-03 

8.33E-03 

1.04E-02 

1.26E-02 

1.46E-02 

21 

5.46E-03 

7.31E-03 

9.43E-03 

1.17E-02 

1.40E-02 

1.62E-02 

1.78E-02 

1.89E-02 

22 

1.04E-02 

1.29E-02 

1.53E-02 

1.75E-02 

1.90E-02 

1.97E-02 

1.94E-02 

1.79E-02 

23 

1.64E-02 

1.86E-02 

2.00E-02 

2.04E-02 

1.95E-02 

1.74E-02 

1.43E-02 

1.05E-02 

24 

2.09E-02 

2.09E-02 

1.96E-02 

1.70E-02 

1.33E-02 

9.11E-03 

5.10E-03 

1.97E-03 

25 

1.99E-02 

1.67E-02 

1.25E-02 

8.02E-03 

3.94E-03 

l.lOE-03 

5.58E-06 

7.68E-04 

26 

1.22E-02 

7.33E-03 

3.17E-03 

5.92E-04 

6.97E-05 

1.56E-03 

4.48E-03 

7.85E-03 

27 

2.77E-03 

3.39E-04 

2.61E-04 

2.34E-03 

5.76E-03 

9.29E-03 

1.17E-02 

1.22E-02 

28 

4.29E-04 

2.96E-03 

6.78E-03 

1.04E-02 

1.25E-02 

1.23E-02 

9.83E-03 

6.12E-03 

29 

7.46E-03 

1.12E-02 

1.31E-02 

1.23E-02 

9.18E-03 

5.05E-03 

1.55E-03 

1.77E-05 

30 

1.36E-02 

1.24E-02 

8.79E-03 

4.33E-03 

9.53E-04 

4.41E-05 

1.79E-03 

5.15E-03 

31 

8.79E-03 

3.99E-03 

6.51E-04 

2.04E-04 

2.60E-03 

6.39E-03 

9.50E-03 

1.03E-02 
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Table  C.2  Franck-Condon  Factors  for  D-X  (continued) 


v"\v' 

38 

39 

40 

41 

20 

1.64E-02 

1.78E-02 

1.84E-02 

1.83E-02 

21 

1.91E-02 

1.83E-02 

1.65E-02 

1.39E-02 

22 

1.54E-02 

1.22E-02 

8.61E-03 

5.14E-03 

23 

6.68E-03 

3.31E-03 

9.68E-04 

1.47E-05 

24 

2.45E-04 

1.74E-04 

1.64E-03 

4.18E-03 

25 

3.04E-03 

6.11E-03 

9.04E-03 

l.lOE-02 

26 

1.06E-02 

1.18E-02 

1.12E-02 

8.89E-03 

27 

1.06E-02 

7.46E-4)3 

3.91E-03 

1.13E-03 

28 

2.51E-03 

3.17E-04 

2.38E-04 

2.14E-03 

29 

9.23E-04 

3.68E-03 

6.94E-03 

9.22E-03 

30 

8.41E-03 

9.99E-03 

9.15E-03 

6.37E-03 

31 

8.48E-03 

4.98E-03 

1.62E-03 

2.86E-05 

v''\v'  10  11 

20  3.35E-10  1.26E-09 

21  1.95E-09  7.08E-09 

22  1.05E-08  3.65E-08 

23  5.25E-08  1.74E-07 

24  2.43E-07  7.72E-07 

25  1.04E-06  3.15E-06 

26  4.14E-06  1.18E-05 

27  1.52E-05  4,12E-05 

28  5.14E-05  1.31E-04 

29  1.60E-04  3.84E-04 

30  4.58E-04  1.02E-03 

31  1.19E-03  2.47E-03 


12  13  14 

4.41E-09  1.42E-08  4.31E-08 
2.36E-08  7.34E-08  2.12E-07 
1.17E-07  3.48E-07  9.64E-07 
5.35E-07  1.51E-06  4.01E-06 
2.25E-06  6.10E-06  1.53E-05 
8.75E-06  2.24E-05  5.37E-05 
3.12E-05  7.60E-05  1.71E-04 
1.02E-04  2.34E-04  4.98E-04 
3.07E-04  6.60E-04  1.31E-03 
8.39E-04  1.68E-03  3.10E-03 
2.08E-03  3.86E-03  6.56E-03 
4.63E-03  7.89E-03  1.22E-02 


15  16  17 

1.22E-07  3.25E-07  8.21E-07 
5.77E-07  1.47E-06  3.56E-06 
2.50E-06  6.11E-06  1.41E-05 
9.95E-06  2.31E-05  5.08E-05 
3.61E-05  7.98E-05  1.66E-04 
1.19E-04  2.50E-04  4.92E-04 
3.61E-04  7.10E-04  1.31E-03 
9.84E-04  1.81E-03  3.12E-03 
2.41E-03  4.14E-03  6.61E-03 
5.30E-03  8.36E-03  1.22E-02 
1.02E-02  1.47E-02  1.94E-02 
1.72E-02  2.22E-02  2.58E-02 


Table  C.2  Franck-Condon  Factors  for  1^  D-X  (continued) 


v"  \  v* 

18 

19 

20 

21 

20 

1.96E-06 

4.47E-06 

9.71E-06 

2.01E-05 

21 

8.15E-06 

1.77E-05 

3.68E-05 

7.29E-05 

22 

3.08E-05 

6.38E-05 

1.26E-04 

2.37E-04 

23 

1.05E-04 

2.07E-04 

3.89E-04 

6.93E-04 

24 

3.27E-04 

6.08E-04 

1.07E-03 

1.80E-03 

25 

9.12E-04 

1.59E-03 

2.64E-03 

4.16E-03 

26 

2.27E-03 

3.73E-03 

5.75E-03 

8.38E-03 

27 

5.05E-03 

7.66E-03 

1.09E-02 

1.45E-02 

28 

9.84E-03 

1.36E-02 

1.76E-02 

2.12E-02 

29 

1.65E-02 

2.07E-02 

2.38E-02 

2.50E-02 

30 

2.34E-02 

2.57E-02 

2.54E-02 

2.22E-02 

31 

2.69E-02 

2.48E-02 

1.96E-02 

1.25E-02 

v"  \  v' 

11 

12 

13 

14 

15 

33 

1.06E-02 

1.63E-02 

2.24E-02 

2.73E-02 

2.91E-02 

34 

1.79E-02 

2.44E-02 

2.91E-02 

3.01E-02 

2.61E-02 

35 

2.64E-02 

3.09E-02 

3.08E-02 

2.52E-02 

1.53E-02 

36 

3.26E-02 

3.13E-02 

2.40E-02 

1.32E-02 

3.44E-03 

37 

3.20E-02 

2.30E-02 

l.lOE-02 

1.97E-03 

5.11E-04 

38 

2.24E-02 

9.31E-03 

8.95E-04 

1.48E-03 

9.47E-03 

39 

8.21E-03 

3.24E-04 

2.90E-03 

1.21E-02 

1.90E-02 

40 

8.56E-05 

4.40E-03 

1.47E-02 

2.02E-02 

1.54E-02 

41 

5.71E-03 

1.69E-02 

2.11E-02 

1.39E-02 

3.01E-03 

42 

1.88E-02 

2.16E-02 

1.22E-02 

1.65E-03 

1.73E-03 

43 

2.23E-02 

1.09E-02 

6.61E-04 

3.28E-03 

1.37E-02 

44 

1.02E-02 

1.95E-04 

5.28E-03 

1.58E-02 

1.58E-02 

45 

3.83E-05 

7.16E-03 

1.78E-02 

1.50E-02 

3.23E-03 
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Appendix  D 

FORTRAN  Code  For  Spectra  Analysis 


The  source  code  for  analyzing  both  ifPj/j  )  + 12  energy  transfer  and  +  M 
rotational  spectra  have  been  included.  Numerous  fitting  laws  and  spin-degeneracy 
factors  for  the  parametization  of  rotational  energy  transfer  data  may  be  modeled  .  The 
required  files  including  subroutines,  include,  and  data  files  for  compling,  Imking  and 
executing  this  program  are: 


DISPLAY.FOR 

RETSIM.FOR 

DXSIM.FOR 

LAMBDA.FOR 

PEAKLOC.FOR 

C  CALLS.FOR 


DISPLAY.DAT 

DISPLAY.REF 

FCF.DAT 

COLORS.H 

BCEYCODE.H 

ROW_COL.H 


The  code  was  written  and  complied  with  Microsoft;  FORTRAN  5.0  and  Microsoft 
C  5. 1 .  The  input  list  for  linking  the  object  files,  include  files,  FORTRAN,  C,  and 
graphics  libraries  is: 

/NOE/E+ 

display+ 

lambda  c_calls  retsim  peakloc  dxsim 


f:\fortran\lib\llibfor7+ 
f:\fortran\lib\graphics+ 
f:\c5  IMibMlibce 
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SStorage:  2 

SINCLUDE:  TGRAPH.FI’ 

» _  _ _ • 

*  A  Graphics  Program  which  allows  user  input  for  calibrating  • 

•  and  fitting  data  generated  by  the  LAMBDA  programs  in  the  • 

•  Laboratory  ofM.C.  HEAVEN.  Source  Code  by  M.  Nowlin  Oct  93  * 

*  , ,  .  .  . . . . . * 

INCLUDE  'FGRAPH.FD' 

INCLUDE 'DISPLAY.DAT  (contains  common  statements 
INCLUDE  'KEYCODE.H' 

INTEGER 

INTEGER*2  dummy2 
REAL*4  xdummy,ydummy 

CHARACTER  MENUl*78>!ENU2*78,name*12,filIay*l2 
LOGICAL  Done 

•, _ _ _ _ _ • 

*  call  the  plication  program  to  read  in  the  user  X  and  y  data  * 

*  ..  .  . -* 

51  CONTINUE 

Write(*,«) 

Write(*,*) 

Write(»,*)'  This  program  may  create  up  to  five  files 
+  wWi’ 

Wiite(*,*)'  extensions  added  to  your  root  name  (cnte 

+red  below):' 

Write(*,*) 

Write(*,*)'  •-dat  X-Y  Format  ofoiginal  file  (no 

+  changes)' 

Write(*,'")'  *.oS:  File  itdiich  contains  oflEset  of 

-t-data  file.' 

Write(V)'  Generated  with  the  input  of  on 

+Iy  one* 

Wrile(*,*)'  calibration  point' 

WiiteC*,*)'  "  cal:  File  which  contains  calibrated 

+  data  in  X*Y  format* 

WriteCVy  Generated  with  the  input  of  tw 

+0  or  more' 

Write(*,*)'  calibration  points.' 

Wiite(*,*)'  "jnet  File  which  contains  peak  local 

■Hons  and  areas' 

WriteC*,'*)'  caLref  File  contains  ir^jutcalibratio 

+n  points.' 

Wiite(*,*)'  File  is  for  cross-checking  and 

+  is  over-written’ 

Write(*,*)'  each  time  a  data  file  is  calib 

■Hated.' 

WriteC*,*) 

Wiite(*,*)'SELECT  FILE  TYPE  (ENTER  a  or  b  only,  NO  RETURN  KEYy 
Write(».*) 

Write(*,*)'A.  Lambda  Data  File  (Format  fiom  MCH  Laboratory)' 
Write(*,*) 

Write(*,»)'B.  XYFileFoimaf 

WriteC,*) 

newfile».&lse. 

calib».&lse. 

done^.&lse. 

Do  While(  Jiot.  Done ) 

Call  checldc(  opt) 

SELECT  CASE  (opt) 

CASE($CAP_/LSa  )  (call lambda 
call  l^bda(filnam,yescaLname.oldname) 
OPEN(22J^ile=mame3n=100,Statiis=TJNKNOWN') 
READ(22,*,err=200,end=300)nume 
Do  I=l^ume 

READ(22,»)  Xdata),Ydat(0^t(I) 

End  Do 
CLOSE(22) 
done^.true. 

CASE($CAP_B^  )  !  read  data  file 

wiite(*,*)'Irq>ut  file  name' 
read(*33)FILLAY 

write(*,*)'Input  new  file  name  (Enter  root  name  only)' 
read(*33)filnam 
33  Foimat(A12) 
oldname=fillay 

OPEN(633e=nLLAY3RR=200,STATUS='OLD') 

read(63,*) 

Dojf“l,1000 

read(63.»3Nl>163)xdat(ij),ydat(ij) 

IF(xdat(ij).gt9000)then 

temp=xdat(ij) 

xdat(ii>=le7/temp 

ENDIF 

zdat(ij>=0.0 


END  DO 
163  continue 
nume=Qj-l 
done=.true. 

CASE(  $ESC^CAP_Q,Sq )  !  quit  program 

Done  =  .true. 

CASE  DEFAULT 
END  SELECT 
END  DO 

_ _ _ — - 

•  get  the  min/max  values  in  the  Id-arrays  '* 

■  -  -  -  * 

call  minmax(xdaMiume^ummy,ydummy) 
xmin=db!e(xdummy) 
xmax=dble(ydummy) 
call  mirunax(ydat^umepcdianmy»yduinmy) 
yinin=dble(xdummy) 
baselin^ymin 
yma)p=dble(y  dummy) 
call  minmax(2dat^ume^dummy,ydummy) 

2min=dble(xdumroy) 

zmajc=dble(ydummy) 

»  -  -  -  -  —  .  . ** 

call  the  graphics  routine  aiui  display  foe  data  *' 

-  _ _ _ -• 

call  display 
IF(newffle)goto  51 

call clearscreen (SGCLEARSCREEN)  (clear screen 

Menul  = '  PRESS  RETURN  TO  READ  ANOTHER  DATA'// 

+  '  FILE  AND  CONTINUE  ’ 

Menu2*'  PRESS  q  OR  ESC  TO  QUIT  'll 
+  '  REMEMBER  THE  NAMES  OF  YOUR  FILES' 

CaUmes5g(Menul.  I) 

Call  me$5g(Menu2>  2) 

E>one=.folse. 

Do  While(  not  Done  ) 

Call  che4^(  opt ) 

SELECT  CASE  (opt) 

CASE(  SRETURN )  ( load  another  file 

can clearsciecn (SGCLEARSCREEN)  [clearscreen 
dummy2*=sctvideomode($DEFAULTMODE) 
goto  51 

CASE($ESC,$CAP^Q^)  I  quit  program 
Done  » .true. 

CASE  DEFAULT 
END  SELECT 
END  DO 

dummy2=setvideomode($DEF AULTMODE) 
stop'end  of  program' 

100  stop'ERROR  IN  MAIN,  cannot  open  input  file,  why  7 

200  stop'ERROR  IN  MAIN,  cannot  read  fi’om  input  file,  whyT 
300  stop'ERROR  IN  MAIN,  reached  end  ofinput  file,  why? 
end 

SUBROUTINE  DISPLAY 

•  -  — » 

*  gr^hics  routine  * 

*  -  - • 

INCLUDE  'FGRAPH.FD' 

INCLUDE  'DISPLAY.DAT 
INCLUDE  'KEYCODE.H' 

INTEGER  opUunit4tbnd4chg 
INTEGER*2  dumm’^4tUx,dstle(^,xstte(5) 

INTEGER*2  ixzum^dzum 
INTEGER*4  itnum4iume2 
REAL*4  alw,presspo(dum(30),yyduro(30) 

REAL*4  ymaxsiro,ymaxtmp4cdummy,ydummy,foop 
REAL'“8  8hort,riong,temp4unfoort4unlong 
R£AL*8  bec,dec4(ec,yec,fdum,wgt,based,rate 
CHARACTER  Menul  •78,Mcnu2*78,dumchar»30,sti*7,finay*I2 
CHARACTER  str3*6,str5»20,str2»2,str8'*8,str9»9,strl0»10 
CHARACTER  dumchr*33 
LOGICAL  done,done34iex,again,first,fit_aU 
LOGICAL  plus,sub,spectro,fistmd,fohtyate 
RECORD/rccoord/  s 

COMMON/SPECT/  spectro,idzurn4X2um,bec,dec4(ec,yec,fistrnd 

cal_done=.false. 

drawnocal=.&lse. 

pkhgh=.true. 

spectro^.&lse. 

m  _  _  _ _ _ * 

*  read  in  graphics  information  from  the  reference  file  * 

Iffile  is  not  found...usede&ult  values  at  label  51  * 
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51 


OPEN(12,ERR*51,FILE=='DISPLAY.REF,STATUS=’OLD') 

READ(12»^RR=200,ENI>300) 

READ(12  •3RR=200,ENI>=300)  XIVIEW.YIVIEW 
READ(12.*3RR=200^JI>300) 

READ(12,*^RR=200^D=300)  ZSCALE 
READ(12,»,ERR=200, END-300) 

READ(12  •,ERR*=200,END-300)  NLCl,  NLC2,  NLC3,  NLC4,  NTC 
READ(12,*3RR=2003ND=300) 

READ(12,*,ERR=200,END=300)  COLl,  COL2,  COL3,  COU.  COLS 
READ(12*,ERR=200,END=300) 

READ(  1 2,*3RR=200,ENI>300)  xrange,  yvar  lxrange=cur  size 

READ(12.*,ERR=200,ENI>300) 

READ(12,*^RR=200^ND=300)  x_rowpcl_coU2_col 
READ(12,*^RR=200^ND=300) 

READ(12,*3RR»2003ND“300)  put_cur 
READ(12.*^RR“200^ND-300) 

READ(12.*3RR=200^NI>300)  gtw 
READ(12,*.ERR=200,END=300) 

READ(12,»3RR=*200^NI>-300)  iunit^w 
READ(12,*^RR=200,END=300) 

READ(12,*3RR=200,ENE^300)rottmp/otc^otaLrotap^talw^ott 

READ(12,*^RR=200^ND=300) 

READ(12,*,ERR=200, END-300)  inverse,SD^ 

READ(12,*3RR=200^ND=300) 

READ(12.»^RR=200^ND=300)pop(20),pop(21),pop(22),pop(23)  (population  for  vib 
READ(12.»^RR*200^D=300)pop(24),pop(25),pop(2d),pop(27)  (levels  of  12  + 1* 
READ(12,*^RR=200^ND=300)pop(28),pop(29),pop(30),pop(31)  (energy  tranfer 
READ(12,*3RR=200^Nr>300)pop(32).pop(33),pop(34),pop(35) 
READ(12,*,ERR=2003ND=300)pop(36),pop(37),pop(38),pc^39) 
READ(12,»^RR=200,END=300)pop(40),pop(41),pop(42),pop(43) 
READ(12»^RR=200,ENI>300)pop(44),pop(45),pop(46),pop(47) 
READ(12,».ERR=200^NI>'300) 

READ(12  RR=200^D=300)tinpr(20),tmpr(21),tmpi(22),tmpr(23)  (temp  for  vib 

RJEAD(12,*^RR-200^NI>=300)tmpi(24),tmpr(2^,tinpi<2^,tmpi(27)(levels  of  12  + 1* 

READ(12,*^RR=200^1>300)tmpr(28),tmpi<29),tmpr(30),tmpt(31)  (energy  tranfer 

READ(12,*3RR=200.END=300)tmpi<32),tmpr(33),tmpr(34).tmpr(3^ 

READ(12*^RR-200^NI>300)tmpt(36),tmpr(37).tmpr(38),tmpt(39) 

READ(i2,*^RR-200^ND»300)tmpr(40).tmpi(4i),tmpr(42),tinpi<43) 

READ(12,*^RR«200,ENt>*300)tmpr(44),tmpT(45),tmpr(46),trapr(47) 

READ(12.*^RR-200^I>300) 

READ(12,*.ERR»200^I>300)LORENT4gow884i 

READ(12,*3RR“200,EN1>300) 

READ(l2*3RR»200.END-300)totJ(20),totJ(2l),totJ(22).toO(23) 
READ(l2.*JRR=200,END-300)totJ(24),toU(25),toU(26),totJ(27) 
READ(12,*^RR=200^I>=300)totJ(28),toO(29),totJ(30),totJ(31) 
READ(12,*^RR=200^NI>=300)toU(32),totJ(33),totJ(34),totJ(35) 
READ(12,"^RR=200.ENI>300)toU(36).totJ(37).totJ(38),totJ(39) 
READ(l2,*^RR=2003ND=300)totJ(40),totJ(41),totJ(42),totJ(43) 
READ(12,*^RR=200^ND-300)totJ(44),totJ(4^,totJ(46),totJ(47) 
rewind  12 
Goto  52 
XI  VIEW-85. 

Y1  VIEW-85. 

ZSC  ALE-30. 

NLCl-12 

NLC2-14 

NLC3-11 

NLC4-15 

NTC-4 

COLl-12 

COL2-15 

COL3-15 

COL4-12 

COL5-10 


pop(23)=0.6 

pop(24)=1.2 

pop(2^1.3 

pop(26)=0.8 

pop(27)=1.3 

pop(28)=0.9 

pop(29>=0.9 

pop(30>=1.2 

po^31)=0.9 

pop(32)=l.l 

pop(33)=2.1 

pop(34)=2,4 

pop(35)=3.0 

pop(36)-4.2 

pop(37)=5.3 

pop(38)=5.9 

pop(39)=5.9 

pop(40)=10.2 

pOp(41)-4.9 

pop(42>=6.6 

pop(43>=4.2 

p<^44)-3.3 

pop(45)-2.8 

pop(46)=3.3 

pop(47>=1.3 

Do  j=2032  (Nascent  Rotational  Temperature  of  Vibration  Excited  12 
linpr(j)=270 
END  DO 
tinpr(33)=360 
tmpr(34)=380 
tmpr(35)=380 
lm^3^380 
tm^37^370 
tmpr(38>-360 
tinpr(39)=345 
tinpr(40)*340 
linpr(41)»340 
ttmpr(42)*320 
tm]^43)*320 
1inpr(44>"320 
tmpr(45^300 
tmpr(46)F=298 
tmpi(4T^98 
LORENTZ-.truc. 
gowas-.truc. 
ah-0.0002 

Doj-20,47  (Nascent  Rotational  Temperature  of^^bration  Excited  12 
(Gaussian distribution 

END  DO 
52  Dmtinue 


check  data  from  reference  file  of  correctness 


ifrxlviewjtl0.d0.orjclview.gtl00.d0)goto  901 
i^lviewJtlO.dO.or.ylvicw.gt  lOO.dO)  goto  902 
if(zscaleJtI0.d0.or.zscale.gt.l00.d0)goto  903 
if(nlcl.lt.0.orjilc2Jt0.orjilc3Jt0.or.nlc4Jt0)  goto  904 
ifrntc  JL0)goto  904 


plot  the  gr^h 


callvidscm 
call  plot 
call  axis 


xrange-6 

yvar=21.0000 

x_row*29 

xl_coM 

x2_co^71 

put_cur=^ 

^w-0.08 

alw=0.06 

iunit=l 


move  cursor  /  select  options 


IF(put_cur.eq.  1  )then 

curpos=int(nume/2) 

ELSEIF(put_cur.eq.2)tiien 

cuipos=xrange+l 

ELSE 

curpos-nume-xrange- 1 


rottmp-301 

rotc=0.2 

rotaHl.O 

rotap-l.O 

rota^«O.08 

rott'300 

inverse-.&lse. 

SDeg-4 

pop(20)m.4  [Steady  State  Population  ofVibration  Excited  12 

pop(21)=0.5 

pop(22>0.9 


ENDIF 

call  setviewport(xl,yl^,y2) 
call  cursor(curpos»on) 

Done  =  .felse. 

moveone-.false.  (Step  second  display  left  or  right 

movetwo-.&lse.  (Second  file  is  dx^  or  external 

moveret-.false.  (Second  file  is  RET  file 

out_lf^.felse. 
out_igt-.felse. 

Menul-'  Use7/CHAR(27)//’  7/CHAR(26y/' keys  to  move'// 
+  '  cursor  ESC  -  Return  to  previous  screen' 
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Menu2  = '  C  -  Enter  Calibration  Mode  7/ 

+  '  D  -  Enter  Data  Mode* 

Ca]linessg(Menul,  1) 

Call  nies^(Menu2, 2) 

plotsim=.&lse. 

distwo^.&lse. 

jpcnt=0 

jplus=0 

jminus=0 

Do  Whiie(  Jiot.  Done ) 

Call  checkk(  opt) 

SELECT  CASE  (opt) 

CASE($LFTAROW,$COMMA,$LT)  !  move  Cursor  left 
Call  Curs_Lft(CurPos) 

CASE($RGTAROW,$PERIOD,$GT)  !  move  Cursor  right 
Call  Curs_Rgt(CurPos) 

CASE(  $CAP_H,  $h )  }  move  Cursor  right 

bbigstep^.true. 

Call  Curs_Lft(curpos) 

CASE(  $CAP_K,  $k )  !  move  Cursor  right 

bigstep^.lTue. 

ci  Curs_Rgt(curpos) 

CASE(  $CAP_J,  $j )  I  move  Cursor  left 

bigstep=.true. 

Call  Curs_Lft(curpos) 

CASE(  $CAP_L,  SI )  !  move  Cursor  left 

bbigstep^.true. 

Call  Curs_Rgt(cuipos) 

CASE($r)  !  refresh  screen 

call  refresh 
call  mes^menu2^) 

CASE(SCAP_B4b)  [baseline 

baseiin=ydat(curpos) 
dumcha^^BASELINE-  ' 

Can  settextposition(237;s) 

CaU  outtext(dumchar) 

Write(str;(f7.2)')baselin 
CaU  settex^position(2,47^) 

CaUoutt^str) 

CASE($CAP_D,$d)  !  enter  data  mode 

catib=.&lse. 

CaUDat^File(CurPos) 

CASE(  $CAP_C4c )  I  enter  calibration  mode 

calib«.true. 

call  Set_CAL(CurPos) 
call  cursor(cuipos,oS) 
calib«.&lse. 
caOaxis 

CASE(  $F1  )  !  DISPLAY  SECOND  FILE 

caU  clearscreen  (SGCLEARSCREEN)  ( clear  screen 
dummy2=setvideomode($DEFAULTMODE) 
wiite(*,*)'Input  file  name' 
iead(*^3)FILLAY 
33  Format(Al2) 

OPEN(63,File*FILLAY^RR=164.STA1US='OLD0 

read(63*) 

DoirUOOO 

read(63,*^I>163)xcol(ij),ycol(ij) 

If(xcol(jii).gt9000.)xcol(ij)=le7/xcol(ij) 

END  DO 
163  continue 
itworaim=i-l 
itnuriF^onum 

caU  riiiiunax(xcol4tnutn^durnmy,ydununy) 
xxmin»dbl^xdummy) 
xxroax=dble(ydummy) 
caU  iniiunax(ycoUtnumpcdummy,ydummy) 
yymin=dble(xdummy) 
yyma»=dble(ydummy) 
temp=‘=ymax/yyroax 
yddl='jTOin-yyinin 
iatio==ymin/ymax 

IF(baselin.gtO)ydelt=baselin-yyinin 

ratio==ymin/ymax 

IF(basetiiLgtO)ratio==baselin/ymax 

Doj&=l^onum 

temp2^col(ja) 

ycol(ja)»temp2*temp  !  scale  data  file 
Iflyiiun.gtyyinin)ycol(ja>=ycol(jaHydelt 
IflyrniiiJtyyinin)ycol(ja)=ycol(ja>-ydelt 
ycol(ja)=ycol(ja)*(l-ratio) 
IF(ycolOa)Jtbasdin)ycoKja)=H»selin 
End  Do 

distwo=.true.  i  display  second  file 


164  continue 

callvidscm 
call  refresh 
distwo=.&lse. 

CASE(  $F3 )  !  Override  No  Calibration  Data 

yescal“true. 

CASE(  $F4 )  !  DISPLAY  D-X  Spectroscopy  Simulation 

iodx=.tiiie. 

call  clearscreen  (SGCLEARSCREEN)  !  clear  screen 
dummy2^etvideomode($DEFAULTMODE) 
shoit=^dat(l) 
nmshort=short 

IF(shortgt.2000.)nmshort*le7/shoit 

tlong^dat(nume) 

nmlong^ong 

IF(riong.gt.2000.)nmlong=le7/riong 

IF(nmlongJtJimshort)then 

lemp=mmshott 

nmshor^mmlong 

nmlong=temp 

ENDIF 

wiite(*,*)’Input  total  number  of  bands  (max:  5)’ 
read(*,*)itlmd 
Do  Hljtbnd 

write(*,*)'lnpul  D  state,  X  state' 
read(*,*^d2unMxzum 
dstte(i)»ridzum 
xstteO)=ixzum 
END  DO 
callvidscm 
callrefi^h 
movetwo«.&lse. 
spectTD=.tnie. 
nex=.true. 

fiatmd=.tme.  [erase  existing  file  contents  before  call 
open(unib=5,file='DXPOS.daf,status=rinlcnown') 

DOi«14tbnd 

yec=0. 

xec=0. 

deo=0. 

bec=0. 

IF(n«c)tticn 

idzuniF=dstteO) 

bzum>?cstteO) 

ENDIF 

Write(sti2,'02)')idzum 
caU  settextposition(2,10,s) 
caU  outtext(str2) 

Write(str2,'(i2)')ixzum 
can  5ettex^position(2,14,s) 
caU  outtext(str2) 
inumq^ 

47  caU  dxsim(nmshorMimlong)  (calc  line  positions 
caU  dxsimtwoOuniLalw)  [fits  line  positions  with 
wgb^l.O  llinesh^ 

first=.true. 
plotsim^.true. 
fit_an=».&lse. 
nex^.tnie. 

caU  dxonetime(ncx,wgt,first4djx,fdum,fit_aU)  [scales  line 
[positions  based  on  shape 

distwo=.tiue. 
itwonum=1501 
can  refresh 
distwo».&lse. 
done3=.&lse. 
jminus=0 
jplus=0 
jpcnH) 
nej^.tiue. 

Write(str2,'(i2)')idzum 
caU  5ettextposition(2,10,s) 
caU  outtext(5ti2) 

Wiite(str2,’(i2)'^xzum 
can  settexQx>sition(2,14,s) 
caU  outtext(str2) 

Write(5trl0,'(n0.8)')xec 
caU  settextposition(l,40,s) 
caU  outtext(strlO) 

Write(strl0;(fl0.8)')dec 
caU  $ettextposition(l,20,s) 
caUouttext($trlO) 

Write(str3,'(f6.4)')bec 
caU  se^;^>osition(l,60,s) 
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call  outtext($tr3) 

Write(str3,'(fc.4)')yec 
call  settexQ>osition(2,60^) 
call  oiittext(str3) 
str3='D  con-' 

call  settexQx>sition(  1,13^) 
call  outtext(str3) 
str3='Xcon-' 

can  settex^position(133>s) 
caU  outte}^str3) 
str3=^BO-  ' 

caU  settexQx>sition(l,53,s) 
can  outtext(str3) 
str3=TD  Dcon' 
can  settexQx>sition(2,53^) 
caU  outte}^str3) 

Do  WhUe(  Jiot  £)Qne3 ) 

Cancheckk(opt) 

SELECT  CASE  (opt) 

CASE(  SEQUAL,  SPLUS)  Istep  DXSIM  SPECTY  display  right 
j=0 

jnunus=3ininus+ 1 
Dok=U1501 
stpx(k>=0. 

END  DO 
Do  k=^pnmus,lS01 

rt+i 

stpxO)=y«>l(k) 

END  DO 
jphiH 
jpcnt=jininus 
moveone=.tme. 
can  refresh 
moveone=.&lse. 

CASE<$MINUS,$UNDRLIN)  !  step  DXSIM  SPECTY  display  left 
jpcnt=jpcnt<-I 

ro 

Doic=l,150l 

stpx(k>»0. 

END  DO 
Do  b^pcnt,lS01 

rH-i 

8tpx(k>=ycoI(j) 

END  DO 
jimniis=^pcnt 
jplus»1501 
moveone=.tnie. 
can  refresh 
inoveone=.&lse. 

CASE($CAP_X,$x) 

IF(sub)xe^=xec-0.000000 1 

IF(plus)xec*^cec+0.0(K)0001 

nex^.fidse. 

Write(strlO,'(no.8)')xec 
can  settextposition(l,40^) 
can  outtext(strlO) 

CASE($CAP_D,$d) 

IF(sub)dec=dec-0.0000001 
IF(plus)dec=dec+O.OOCKKX)  I 
nex=.&lse. 

Write(strl0,'(n0.8)')dec 
caU  settexQx>sition(l;20^) 
canouttext(strlO) 

CASE($CAP_B,$b) 

IF(sub)beo==bec-0.0I 

IF(plus)bcc=beoK).01 

nex=.&lse. 

Wiite(str3.’(i6.4)')bec 
caU  settextposition(l  ,60^) 
caU  outtext(str3) 

CASE($CAP_Y,$y) 

IF(sub)yeo=yec-0.01 
IF(plus)yec*^ec+0.0 1 
nej^.frlse. 

Write(str3,'(85-4y)yec 
can  settextpositi(^2,60,s) 
caU  outt«ct(str3) 

CASE($COMMA,  $LT) 
sub^.tnie. 
phis».&lse. 

CASE($PER10D.$GT) 

plus=.tnie. 

siib=.&lse. 

CASE(  $ESC^AP_Q,$q) 


done3  =  .true. 
nex=.tiue. 
CASE($RETURN) 
done3  =.tnie. 
CASE  DEFAULT 
END  SELECT 
END  DO 

IF(j\otJiex)goto  47 
END  DO 
iodx^.&lse. 
spectro^.ialse. 


I  DISPLAY  D-X  NRG  TRANSFER  SIMULATION 


CASE($F5) 
strS®*  ' 

caU  settextposition(833,s) 
caU  outte}^str5) 
can  settex^position(1033,s) 
can  outte^^strS) 
str5='  12  + 1*  Simulation ' 
can  settextposition(933»s) 
caU  outt^str5) 
iodx=.tiue. 
short^dat(I) 
nmshoit=short 

lF(shoitgt.2000.)nmshort=l  e7/shoit 
ilong»?cdat(nume) 
nmlong^ong 

IF(riong.gt2000.)nmlong=le7/riong 

IF(ninlong.ltJunshort)then 

temp^mmsht^ 

nmshoit^imlong 

nmlong^temp 

ENDIF 

caU  dxsim(nmshort,ninlong) 
can  dxsimtwoOunit»alw) 
inumq*l 
nex=.liue. 
wgt**1.0 
chg=O.I 
Idum^l.O 
fiist^^.true. 

34  continue  iaUows  fitting  of  each  band 

plotsiin^.tjue. 

^  dxonetime(nex,wgLfirst4djx4duin4t_&n) 
noF=.tiue. 
distwo=.true. 
itwonum*1501 
cafirefiesh 
distwo=.&l5e. 
done3=.false. 
agaim^.&lse. 

IF(iband- 1  Jtinumq'l  )then 
str5=^  Simulation  ’ 
can  $ettex^>osition(130,s) 
can  outtext(5tr5) 

ELse 

str5=1>and  -  total  •’ 
can  settextposition(l^^) 
can  outte}^$tT5) 

Wiite(5tr2,’(i2)’^band- 1 
can  settextposition(143^) 
call  outtext(str2) 

Write(str2/^)')inumq- 1 
can  settextpo5ition(138.s) 
can  outtext(str2) 

5tr3^D '  ' 

can  settextposition(2,43^) 
can  oattext(str3) 

Write(str3;G2)’)id 
can  settextposition(2,474) 
can  outtext(str3) 
slr3=OC-  ' 

caU  settextposition(2^^) 
can  outtext(str3) 

Write(str3,’a2)^ 
can  settexqx>sition(2^^) 
can  outtext(str3) 

5tr3=Vgt-  ' 

can  settextposition(2^3»s) 
can  outte}^$tr3) 
slr3='chg-  ' 

can  scttex^position(2^^) 
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caU  outtext(slT3) 
str3='pop-  ' 

call  settex4x>sition(2,65^) 
call  outtext(str3) 

Write(str3.'(K.3)’)pop(ix) 
call  settexQ)Ositioi^2,70,s) 
call  outtext(str3) 

5tP='FCFxl00' 

call  settexQx)sition(l,57^) 

call  outtcT^str) 

Wiite(str8,'(e.6)')faum*  1 00 
call  $ettexQx)sition(l,67^) 
call  outtext(str8) 

Write{str8/(f8.6)')chg 
call  $ettexQx>sition(2, 1 3^) 
call  outtext(str8) 

Write(str9/(f9.6)')wgt 
call  settextpositioj^230,s) 
call  outtext(sti9) 

ENDIF 

jininus=0 

jplus^) 

jpcnt=0 

Do  While(  Jiot  Done3 ) 

CaU  checkk(  opt ) 

SELECT  CASE  (opt) 

CASE($F1) 
done3  =.true. 
again  =.true. 
fit_al^.tnie. 

CASE($EQUAL,$PLUS)  !step  DXSIM  display  right 
j=0 

jminus-jminus+l 

Dok=l,150i 

stpx(k>=0. 

END  DO 
Dok^‘7ninus,1501 

Jt+i 

sipx0>y«>l(k) 

END  DO 
jphiH 
jpcntB^minus 
moveone^.tnie. 
call  refresh 
moveone=.felse. 

CASE($MINUS,$UNDRLIN)  (step  DXSIM  display  left 
jpcnt=3pcnt+I 
ro 

Do1f=1.1501 

stpx(k)=0. 

END  DO 
DolHpcnt,1501 

sq)x(k)=ycol(j) 

END  DO 
jminus=3pcnt 
jplus=1501 
moveone=.true. 
caU  refresh 
inoveone=.&lse. 

CASE(SCAP_X,$x) 

nex».&lse. 

again-.true. 

done3=.true. 

CASE($CAP_M,$m) 

niiine2»lS00 

caU  iiiiniiiax(ycol^uine2pcduinmy,yduinmy) 
yinaxsiin=dble(ydummy) 
yinaxtmp=ymaxsiin*rotap 
Do  jms=l,1501 

IF(ycol(jms).gtymaxsim)ycol(jins)=yinaxtmp 
ENDEX) 
plotsiin=.true. 
distwo^.true. 
itwonum=1501 
caU  refresh 
CASE($CAP_N,$n) 
ne30=.ttue. 
againr=.true. 
done3=.true. 

CASE($ONE) 

chg=1.0 

Wiite(str8,'(£8.6y)chg 
caU  settextposition(2,13^) 


caU  outtext(str8) 

CASE($TWO) 

chg=0.1 

Write(str8,’(f8.6)')chg 
call  settex^>osition(2,B4>) 
caU  outtext(st]:8) 

CASE($THREE) 

chg=O.Ol 

Wiite(str8,’(f8.6)')chg 
caU  se^xtposition(2,I3,s) 
caU  outtext(stT8) 

CASE($FOUR) 

chg=0.001 

WriteCstrSXfB.e^jhg 
call  settextposition(2,13^) 
caU  outtext(str8) 

CASE(  SFIVE ) 
chg=0.0001 
Write(str8/(f8.6)')chg 
caU  settextposition(2,13,s) 
caU  outtext(str8) 

CASE(  $SIX) 
chg*0.00001 
Write(str8,'(f8.6)')chg 
caU  settextposition(2,13^) 
caU  outtext(str8) 

CASE($SEVEN) 
chg=0.000001 
Write(str8,'(f8.6)')chg 
caU  settextposition(2,13,s) 
caU  outtexh^strS) 

CASE($COMMA,  $LT) 
wgt*wgt-chg 

IF(wgtJt0.000001)wgt*=0.000001 
WiiteCstrP.’Ce.e)^ 
caU  settextposition(230^) 
caU  outtext(sti9) 

CASE(SPERIOD,$Grr) 
wgt^gt+chg 
Write(str9;(f9.6)')wgt 
caU  settex:^x>!Qtion(230^) 
caU  outtext(sl29) 

CASE(  SBSCJiCAPJiM) 
done3  =  .true. 
again».&lse. 

CASE($RETURN) 
done3  *.ttue. 
again  =.tnie. 

CASE  DEFAULT 
END  SELECT 
END  DO 

IF(inuinq.gtiband)ag8in-.&lse. 

IF(again]^oto  34 

iodb^.ft^. 

plotsiin=.false. 

CASE($CAP_P,$p) 

caU  clearscreen  (SGCLEARSCREEN)  !  clear  screen 
duminy2=setvideomode($DEFAULTMODE) 
Write(*,*yRelative  weights  for  I2+I*  Simulation’ 
Write(**) 

Write(*.*)'v=20  ',pop(20) 

Write(*,*)'v=2r,p<i(21),'  v=22 ',pop(22),'  v=23 ',pcip(23) 
Write(*»)'v=24',pop(24),'  v=25 '.pop(25),'  v=26’,pop(2^ 
Write(*,*)'v=27',p<i(27),'  v=28 ',pop(28),’  v=29 ',pop(29) 
Write(*,*)'v=30',p<i)(30),'  v=3r,pop(31),’  v=32 ',pop(32) 
Write(*,*yv=33',pop(33),’  v=34 '.pop<34),'  v=35 ',pop(35) 
Write(*,*)'v*36',pop(3«),'  v=37',p<^7);  \r=38 ',pop(38) 
Write(*,*)'v=39',pop(39);  v=40',pop(40),'  v=4r,pop(41) 
Write(*,*)'v=42',pop(42),'  v>M3',pop(43),’  v=44 ',pop(44) 
Write(V)'v=45’,pop(4^,'  v=46',pop(4«),’  v=47',pop(47) 
WriteCV) 

Writ^*,*)'Enter  vibrational  level  to  change  (21-47)' 
iead(*,*)ichg 

WriteCVyEnter  new  weighf 
iead(*,*)5)op 

pop(ichg)=W 

callvidscm 
call  refresh 
CASE($CAP_T,$t) 

caU  clearscreen  (SGCLEARSCREEN)  !  clear  screen 
dnrnrny2=setvideomode($DEFAULTMODE) 

Write(VyRelative  rotational  temps  for  12+1*  Simulation' 
WriteC',*) 
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Write(*.*)’v=20’,totJ(20) 

Write(*.*)'v=2r,totJ(21V  v=22  >0(22)/  v=23 ',totJ(23) 
Write(V)'v=24',totJ(24),'  v=25 ',toU(25),'  v=26 ',totJ(26) 
Write(»,*)'v=27',totJ(27);  v=28 ',totJ(28),'  v=29 ',totJ(29) 
Write(V)'v=30',totJ(30),'  v=3r,totJ(31),’  v=32  ■,totJ(32) 
Write(*.»)’v=33'.totJ(33),'  v=34 ’,totJ(34),’  v=35 ',1011(35) 
Write(*','*)'v=36',totJ(36),'  v=37  ■,totJ(3‘^,’  v=38 ',totJ(38) 
Wiite(Vyv=39',totJ(39),'  v=40 ',totJ(40V  v=4! ',totJ(41) 
Write(’*,'“)'v=42',totJ(42).’  v*43 ',totJ(43),’  v=44 ',totJ(44) 
Write(»,»yv=45',totJ(45).'  v=46  ■,totJ(46),’  v=47 ’,totJ(47) 

Write(*,*) 

Wiite(*,*)'Enter  vibrational  level  to  change  temperature(3S-47)’ 
read(’",*)ichg 

Wiite(*,*)'Enter  new  temperature’ 

leadC*  *)ft>op 

totJ(ichg)=^^ 

callvidscm 

callm&esh 

CASE($CAP_A,$a)  Icall  subroutine  area 

dumchr='AREA-  ' 

Call  settextposition(231>s) 

Call  outtect(dumchr) 
icheckl==Cuzpos 
done3».&lse. 

Do  While(  Jiot.  Done3 ) 

Call  ehecldc(  opt ) 

SELECT  CASE  (opt) 

CASE($LFTAROW.$COMMA^ LT,$CAP  J4;j,$CAP_H,$h)  !  move  Cursor  left 
Call  Curs_Lft(CurPos) 

CASE($RGTAROW,$PERIOD,$GT,$CAP_L,Sl,$CAP_K,$k) !  move  Cursor  ri^t 
Call  Curs_Rgt(CurPos) 

CASE($RETURN) 

ichcck2^»curpos 

done3-.true. 

CASE  DEFAULT 
END  SELECT 
END  DO 

]F(icheclc2  .hicheck  i)then 
itemp^icheckl 
ichMkmcheck2 
icheck2^temp 
Endif 

rq)ts»icheck2*icheckl+l 

ntenns^f^ts-l 

Doj*l,iVts 

jb=iche^-j+l 

xxdumO>*<lat(jb) 

yydumO>7dat(jb)-baselm 

ENDDO 

retare^l. 

call  area(xx<him,yydum,npts4itetms,retarea) 
jb*mpts/2 

OPEN(76,File=^AREA.DAT,Status=UNKNOWN0 
Write(76  •)'peak',xxdum(jb),’  area'jetarea 
Wiite(str,'(f7.2)')Retare8 
Call  settex4>osition(2,39,s) 

Call  outtexQ^str) 


CASE(SFIO)  (enter  RET  Simulation  mode 

moverct=.tiuc. 

movetwo=.felsc. 

call  dearscreen  (SGCLEARSCREEN)  !  clear  screen 
dummy2=setvideomode($DEF AULTMODE) 
base<H7aselin 

write('*,'*)'Input  D  state,  X  state,  J  level  (e.g.  738,49)' 
read('*,*)dstatepcstatejlevel 
wiite(*,*) 

wiite('*,*)'Input  total  pressure  of  sample  (mTotr)' 
read(*,’*)press 
write(*,*) 

Thirtyate=.&lse. 

Ifi^xstate.eq.38)then 

■niirtyate^.true. 

Write(*,'*)'Select  rate  constant*10’*’*-10(Enter  a,b,c  etc.)* 
Write(*,*)’  a.  02  7.54’ 

Write(*,*)'  b.  12  6.59* 

Write(»,*)’  c.  Ar  5.74’ 

Wiite(*,*)’  d.  02  3.8T 
Wiite(*  •)’  e.  H20  9.1’ 

WriteC,*)*  £  He  4.62' 

Wiite(*,'*)'  g.  Enter  your  own  rate’ 

WiiteC*,*) 

Else 

Write(*',*)'Select  rate  constant*10**-10(Enter  a,b,c  etc.)' 


Write(V)'a.02  7.4’ 

Write(V)’b.N2  6.9* 

Write(V)’c.He  6.5' 

WiiteC*,'*)' d.  At  6.1' 

Wiite(»'*ye.I2  8.7 
Write(Vyf.H20  9.3' 

Wiite(’*‘,*'y  g.  Enter  your  own  rate' 

WTite(*,*) 

ENDIF 

done3=.felse. 

Do  While(  Jiot.  Done3 ) 

Call  chedd:(  opt ) 

SELECT  CASE  (opt) 

CASE($CAP_A3a  ) 
rate=7.4e-10 

IF(Tlurtyate)rate=  7.54e-10 
done3=.true. 

CASE(SCAP_B,$b  ) 
rale=^5.9e*10 

IF(Thirtyate)rate='  6.59e-10 
done3=.true. 

CASE($CAP_C,Sc  ) 
rate=6.5e»10 

IFCnurtyate)rate=  5.74e-I0 
done3=.tiue. 

CASE($CAP_D,Sd  ) 
iate=^.le*10 

IFCniirtyate)rate=  3.87e-10 
done3“.true. 

CASE($CAP_E,Se  ) 
rate=8.7e-10 

IF(ThiTtyate)rate=  9. 1  e- 1 0 
done3=.true. 

CASE($CAP,F3f ) 

rate=9.3e-ro 

IF(Thirtyate)iate=  4.62e-10 
done3=.tme. 

CASE($CAP_G3g  ) 
write(*,*)’Enter  your  rate  (e.g.  5.79)’ 
read(*,*)ite 
rate=^*le«10 
done3=.true. 

CASE  DEFAULT 
END  SELECT 
ENDDO 

caUvidscm 

call  retdraw(dstatep(5tatedlevel,basedj8te,press) 
moveret=.&lse. 
call  refresh 


CASE($CAP_N,$n)  I  load  another  file 

call  dearscreen  (SGCLEARSCREEN) !  dear  screen 
dunimy2*8ctvidcomode($DEFAULTMODE) 

C  rewind  12 

newfile^.tiue. 

return 

CASE(  $ESC,SCAP_Q3q )  !  return  to  previous  screen 

Done  =  .true. 

CASE  DEFAULT 
END  SELECT 
ENDDO 
RETURN 

*  _  _ _  _ _ • 

*  get  file  enor  messages  * 

«  _ _  _ _ _ » 

100  stop'ERROR  IN  DISPLAY,  cannot  open  file  display.re£  why  7 
200  stop’ERROR  IN  DISPLAY,  cannot  read  fiom  file  display.ret  why?* 
300  stop'ERROR  IN  DISPLAY,  reached  end  of  file  display  jet  why? 

901  stop’ERROR  IN  DISPLAY,  xlview  value  should  be  between  10->100!’ 

902  stop’ERROR  IN  DISPLAY,  ylview  value  should  be  between  10->100!' 

903  stop’ERROR  IN  DISPLAY,  zscale  value  should  be  between  10->100!’ 

904  stop'ERROR  IN  DISPLAY,  color  values  have  to  be  larger  tiienO!' 

END 


SUBROUTINE  CURSORCix,switch) 

*  -  -  - 

•  This  routine  draws  or  erases  a  cutsot  during  spectra 

•  calibration.  This  cursor  is  turned  on  and  ofif  by  the 

•  switch:  0  -  oflC  1  *  on 

■  -  - 

Include  'FGRAPH.FD 
Include 'ROW_COL.H' 

Include  'COLORS.H' 
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Include  'DISPLAY.DAT 
Int^er  switchjx 

Integer*2  color4unimy3,dimiiny2, dummy 
Real*4  xwn 

Real*8  xspcd,ys,yd,scalepcsub 
Character  Menul*^^tr*10 
Record  /  wxycoord  /  wxy 
Record/rcc(^  /  rc^ 

IF(jtotpkhgh)then  (draws  marker  for  peak  height 
can  setviev(^)oit(xl,yl,x2,y2) 
dummy  =  setwindow(.liue.paiim,ymax^ax,yinin) 

IF(  switch  .eq.  1 )  ttien 
duinroy2  =  setcolor(text_clr ) 

Call  moveto_w(xrCix),baselii,wxy) 
dummy2  =  lineto_w(xr(ix+5),baselin) 

Call  moveto_w(xr(ix),ydelt,wxy ) 
duinmy2  *  lineto_^xr(ix+5),ydelt) 

ELSEIF(switch  .eq.  0)then 
dummy!  =  8etcolorCrWIL_ZONE ) 

Call  moveto_w(xr(bc),oIddel,wxy) 
dummy!  =*  lineto_w(xr(ix+5),olddei) 
dumm^  =  setcolor(text_clr ) 

Call  moveto_w(xr(ix),ydelt,wxy ) 
dummy!  “  lineto_w(x^ix+5),ydelt) 

ELSEIF(switch  .eq.  3)then 
dummy!  *=  8Ctcolor(TTVIL_ZONE ) 

Call  moveto_w(xrCDc),baselin,wxy) 
dummy!  =  hneto_w(xr(ix+5),baselin) 

Call  moveto_w(xr(bc),ydelt,wxy ) 
dummy!  *  lineto_w(j^ix+5),ydelt) 

ENDIF 

Return 

ENDIF 

1F(  switch  .eq.  1 )  then 
IF(calib)dien 

dummy!  -  setcolor(gr^h_border) 

dummy!  =  sctcolof(PLOT_CURSOR)  Iset  color  for  cursor 
ENDIF 

Elseifi;  switch  .eq.  0 )  dien 
IF(caIib)then 

dummy!  “  setcoloiCTWlL^ZONE) 

ELSE 

dummy2»"8etcoloi(TWIL_ZONE) 

ENDIF 

Endif 

IF(ju>tcalib)dien  I  Data  Mode 

can  8etviewport(xl,ylpc2»y!) 
dummy  -  setwtndow(.true.,xmm,yznaxpanax,yxnin) 
yd=*yrCrx>yvar 
y5*yiCix)+yvar 
yaCwH^ix) 

ELSE 

callsetviewport(xl,yl^y3)  I  Cahlnation  Mode 
dummy  *  setwii^w(.true.pcmin,2iDax^ax,2znin) 
yd=^ix>yvar 
ys=zi(ix)^7var 
yaax>=zi(ix) 

Id;jiotyescal)then 

dummy  =  setwindow(.triie.paniruymax,xmax,ymin) 
scale»^max-ymax*0. 1 3 
y<t=scale-yvar 
ys=scalei-yvar 
ya(ix>=5cale 
ENDIF 
ENDIF 

Menul  * '  Wavelength  (nm)  V/ 

+  '  Wavenumbei(cm-1)  Signal' 

CaIlmessg(Menul,  I) 
xsub^cuipos) 

Ifi;cal_dc^)xsub»le7/cabc(cuipos) 

xwn»le7^cuipos) 

Ifl;cal_done)xwn»calx(curpos) 

dummy3»«ettextcolor(15) 

Wiite(str,’(fl  0.4)')xsub 
Can  8etto^>osttion(l»19/c) 

Can  outtext(str) 

Wiite(str,'(fl0.4y)xwn 
Can  8ettexqx)sitiQn(  1 ,48^) 

Canouttex<str) 

Wiite(str,'(fl  0.4)')ya(cuipos) 

Can  8ettexqx>siiion(L6^) 

Can  outtext(str) 
xdif^ciCix>xr(K-xrange) 


x<Hci(ix>^-xdif 

xs^a<ix>xdif 

dummy!  =  ellipse_w($GBORDERpcd,yspcs,yd) 

CaU  moveto_^xr(curpos),yd,wxy) 
dummy!  =  lineto_w(xr(curpos),ys) 

CaU  moveto_w(xs,>^curpos),wxy ) 
dummy!  =  lineto_^xd,>^curpos)) 
dumm>^  =  setcolor(  TWIL_ZONE) !  set  color  for  data  point 
dummji^  =  setpixei_w(  xrfcurpos),  ya(curpos)) 
dummy!  =  setcoloifcolor)  !  reset  to  original  color 
Return 
END 

SUBROUTINE  CURS_RGT(cp) 


•  This  routine  moves  the  cursor  one  data  point  to  die  right  * 


INCLUDE  'DISPLAY.DAT 
INTEGER  cp^ax 
IF(out_rgt)goto  51 
iight=.tme. 
max^XTange^*! 
IF(bigstep)ma3C=xrange+ 1 5 
IF(bbigstep)max=^crange+30 
lU;  cp  .gt.  max)  then 
IF(bigstep)then 

CaU  Cursor(cuipos,0 ) 
CurPos  =  CP'  15 
CaU  Trace  (CurPos) 

CaU  Cuisoifcuipos,! ) 
oul_lft=.false. 
bigstep==.&lse. 

ENDIF 

IF(bbigstep)dien 

CaU  Cursoi(curpos,0 ) 
CurPos*  CP -30 
CaU  Trace  (CurPos) 

CaU  Curs^curpos,! ) 
out_lfb=.feise. 
bbigstep*.&lse. 

ENDIF 

CaU  Cursor(curpos,0 ) 
CurPos*CP-l 
CaU  Trace  (CurPos) 

CaU  Cursorfcmpos,! ) 
out_lfN.&lse. 

Else 

out_igt*.tnie. 

ENDIF 
51  Contimie 
Return 
End 

SUBROUTINE  CURS_LFT(cp) 


*  This  routine  moves  the  cursor  one  data  point  to  die  left  * 


INCLUDE  DISPLAY.DAT 
INTEGER  cp4nin 
IF(out_lft)goto  51 

min*nume-?&ange>l  laiiay  index  to  data  on  left  side  of  cursor 
IF(bigstep)mii^ume-xrange-l  5 
IF^bigstep)miiFmume-xrange-30 
If(cp  Jt.  min)  then 
lfi>igstep)  dien 
CaU  Cursor(CP,0) 

CurPos*  CP  + 15 
CaU  Trace(CurPos) 

CaU  Cursorf  CurPos»l) 
out_igt=.&lsc. 
bigstep*.&lse. 

ENDIF 

Iftbbigstep)  then 
Can  Cursor(CP,0) 

CurPos»CP  +  30 
CaU  Trace(CurPos) 

CaU  CursorC  CurPos,!) 
out_rgb=.felse. 
bbigstep*.&lse. 

ENDIF 

CaU  Cursor(CP,0) 

CurPos  =  CP  + 1 
CaU  Trace(CurPos) 

CaU  Curs^  CurPos,!) 


SUBROUTINE  CLEARLINE(  stait,end ) 


out_rg^.false. 

Else 

out_lfN.felse. 

ENDIF 
51  Continue 
Return 
End 

SUBROUTINE  MESSG  (str^um) 


*  This  routine  will  place  a  message  in  a  dialog  window  * 

•  (HI  the  screen.  * 


Include  TGRAPH.Fiy 
Include 'COLORS-H* 

Include  'ROW_COL.H’ 

Int^erNum 

lnt^er*2  oldcolor,dunimy2^ 

Character*(*)  str 

Record  /  rccocnd  /  rc 

oldcolor »  gettextcoloiO 

dummy2  =  settextcoloi<  MESSG_CLR ) 

If(  num  .eq.  1 )  then 

Can  ClearLine(MESSG_ROWl,MESSG_ROWl) 

Can  settexq>osition(MESSG_ROWl,MESSG_COUrc) 
Flsgifl;  num  .eq.  2  )  then 

Can  ClearLine(MESSG_ROW2,MESSG_ROW2) 

CaU  scttexq)Osition(MESSG_ROW2^ESSG_COUrc) 
Endif 

Can  gettextposition(rc) 

CaU  outtexh!str) 
l  =  INDEX(str;:') 

1*1  +  2 

Can  settextposition(rciow4^) 
dummy2  *  settextcolor(  oldcolor ) 

Return 

END 

SUBROUTINE  TRACE  (cp) 


*  This  routine  win  trace  die  pi^h  in  the  region  of  • 

*  die  data  indexed  by  Pos.  This  data  is  contained  in  * 

*  die  array  data,  declared  in  DISPLAY.DAT  * 


Include  TGRAPH.F0 
Include 'COLORS.H* 

Include 'DISPLAY.DAT 
Int^er  i,min,max,cp4cor 
Int^er*2  dumray2,color 
Record  /  wxycoorf  /  wxy 
Ii((jiQLyesc^.and.(calib))retum 
color  *getcolorO  !  get  current  color 
icor*=0 

IF(bigstep)icoi*15 

IF(bbigstep)icor*30 

min  *  cp  -  (Xtange*2)  -icor 

max  =  cp  +  p&ange*2)  -icor 

IF(iight)mimmiin-40 

ifl;  min  JL  1 )  min  =  l+xrangeHcor 

IF(tight)max=max+80 

iigii^.&lse. 

id  max  .gt  nume)  max  =  nume-xrange-icor 
dummy2  *  setcolor(GRAPH_LINE)  Iset  color  to  data  line  (yeUow) 
Can  moveto_w(  xr(min),  yr(min),wxy ) 

DOi*min,max 

!  retrace  r^cm  around  cursTH* 
dummy2  =  lineto_w(xrCi),yitX)) 

END  DO 

duinmy2  *  setcolor(color)  !  reset  to  otiginai  color 
color  “getcolorO  !  get  current  color 

dummy*setcolor(nlc3)  (set  color  to  calibration  line 

Can  setviewport(xl,yl,x2,y3) 
dummy  *  setwindow(.true.panin,zmaxpcmax,2znin) 

Can  moveto_w(  xr(min),  2r(min),wxy ) 

Do  i  *  min4nax  I  retrace  r^on  around  cursor 

dummy2  =lineto_w(xr(i),zr(i)) 

End  EX) 

dummy  *  setooloi(color)  ( reset  to  original  color 
caU  8etviewpordxI,ylp(2,y2) 

Return 

END 


•  This  routine  clears  a  given  block  ofrows  given  by  * 

•  START  and  END.  * 


Include ’FGRAPH.FD' 

Include  *ROW_COL.H’ 

Integer  stait,end 
Character*78  line 
Record  /  rccoord  /  fc,s 
Dataline(I:78)/”/ 

CaU  gettextposition(rc) 

DolOi*Start,End 

CaU  settextposition(int2(i),MESSG_COUs) 
CaU  outtextOine) 

10  Continue 

CaU  settexd>osition(rc.row,rc.col,rc) 

Return 

END 


SUBROUTINE  Set_Cal(ix) 


*  This  subroutine  normalizes  data  from  calibration 

*  scan.  User  should  enter  five  data  points 


Include 'FGRAPH-FD' 

Include 'COLORS.H' 

Include ’ROW_COL.H' 

Include 'DISPLAY.DAT 
Include ’KEYCODE.H’ 

Integer  opUx4cnt 

Integer*2  dummy, dummy2,y4 

Character  Menul*78,Menu2*78,str*25,str2*31 

Character  str3*35,sttr4*23,str5*10 

Logical  d(Hie,word 

Record  /wxycoord/  wxy 

Record /rccoord/  rc,s 


curpos*ix 
done  *.&lse. 
word=.&lse. 

Menul=’  Use '//CHAR(27y^  V/CHAR(2^/' keys  to  move*// 
+  'cursor  ESC -Return  to  previous  screen’ 
Ifl^escal)then 

Menu2*'  S-Set  Calibration  Pt  FI -Cafibration'// 

+  '  Backspace  •  Delete  Last  Entr/ 

Else 

Menu2*'  NO  CALIBRATION  DATA  ’// 

+  'INTHISFILE 
ENDIF 

CaUmessgCMenul,  I) 

CaU  mes5g(Menu2, 2) 
icnt=0 


Do  While(  Jiot  Done ) 

CaU  chedd:(  opt ) 

SELECT  CASE  (opt) 

CASE($LFTAROW,$COMMA,$LT)  !  move  Cursor  left 
CaU  Curs_Lft(CurPos) 

CASE(  SRGTAROW,  SPERIOD,  $GT ) !  move  Cursor  right 


CaU  Curs_Rgt(CurPo6) 
CASE($CAP_H,$h) 
bbigstep*.tiue. 

CaU  Curs_Lft(curpos) 
CASE($CAP_J,$j) 
bigstep*.1nie. 

CaU  Curs_Lft(curpos) 
CASE(SCAP_L,$1) 
bbigstep=.true. 

CaD  Curs_Rgt(curpos) 
CASE($r) 
caU  refresh 
caU  messg(menu2,2) 
CASE($CAP_K.$k) 
bigstep*.true. 

Can  Curs_Rgt(curpos) 
CASE($CAP_S,$s) 
icnHcnt+1 


I  move  Cursor  ri^t 
!  move  Cursor  right 
!  move  Cursor  left 

I  move  Cursor  left 
( add  data  point  to  file 


Cancleaiiine(29,29) 
lfi[word)then 
CaU  cleariine(3030) 
dummy2  *  settextcolor(messg_clr) 
CaU  settexQx>siti(m(30,20,rc) 
str4*'Last  CaUbration  Pc^t' 

CaU  outtext(str4) 

dummy2  *  settextcolor^nq}h_line) 


IF(icntgt.0)Write(str5,'(fl0.3)')xcal(icnt-l) 

Can  settextposition(30,44^) 

CaU  outte^str5) 

ENDIF 

CaU  settex^position(29,20^) 
dunuT>y2  =  settextcolor(text_cIr) 
str^Enter  Calibration  (cm-1):' 

CaUouttex^str) 

Read(*  •)xcalCicnt) 
cuitempCicnt>=curpos 
dummy  =  setcolor(gr^h_line) 

CaU  setviewport(xl,ylpc2,y3) 

CaU  moveto_w(xr(curposXyl,wxy) 
y4=(115)*zmax 
IF(zniaxJe.5)y4^^TTun-60 
dummy2  =  lineto_w(xr(curpos),y4) 
caU  setviewport(xl,yl^y2) 

If(.notword)then 
CM  cleadine(30^) 

CaU  settextposition(30,20^) 
dummy2  =  settextcoloi(messg_clr) 
str4=^Last  Calibration  Point' 

CaU  outtext(str4) 

dummy2  -  settextcolor(messg_clr) 
Wiite(str5,'(fl0-3)')xcal(icnt) 

CaU  settextposition(30,44^) 

CM  outtex^str5) 
word=.true. 

ENDIF 

CASE(  SDELETE )  !  delete  last  data  point  from  file 

Ifr^teq.O)goto  70 
xcal6cnt)=^ 
curtefnpCtcnt)=z^ 
icnt=4cnM 
Cancleaiiine(2949) 

CaU  settextposition(29^5A) 

dummy2  »  settextcoIof(text  err  dr) 
rti2=LAST  CALIBRATION  POIOT  DELETED!' 

CM  outtext(str2) 

70  Continue 

CASE(SFI)  I  calibrates  raw  data  file 

caU  sort(icnt) 

OPEN(54,FILE-^CAL.REF,STATUS=WKNOWN') 

Dof^ljcnt 

Wii^54*)xcalQ,curtemp®^cuitemp®) 

END  DO 
CLOSE(54) 

IFQcntge.l)frien 
caU  al^caU^cnt) 

ENDIF 

CM  cleadine(29^9) 

CaU  settextposition(29,25^) 
duinmy2  *=  settextcoior(text_err_clr) 

str3='CALIBRA’nON  OF  DATA  COMPLETED . I' 

CaU  outtext(str3) 

CM  messgCMenul,  1) 
cal_done  =  .true. 

CASE($ESC,$CAP_Q>i)  I  return  to  previous  screen 
Done  =  . true. 

CASE  DEFAULT 
END  SELECT 
END  DO 

Mcnul  =  ’  Use  ’//CHAR(27yy  V/CHAR(26y/’  keys  to  move'// 
+  'cursor  ESC  -  Return  to  previous  screen' 

Meiui2  » '  FIO  •  Enter  RET  Simulation  Mode  '// 

+  '  D  •  Enter  Data  Mode' 

CaUmessg(Menul,  1) 

CM  messg^enu2, 2) 
caU  clearline(3030) 
return 
end 

SUBROUTINE  SORTCicnt) 

m  ----  -  - * 

*  This  subroutine  sorts  die  calibration  wavenumbers  into  " 

*  ascending  order  * 

*  _ — 

Include  'DISPLAY.DAT 

Int^er  icnt,tmppos 
Real*8  tmpM 
IF(icnteq.l)goto  74 
Doi»24cnt 
tmpni^xcalCi) 
tmppos  =  curtemp(i) 


DoH2.’1 

IF(xcal(j-l).gt.tmpwl)then 

xcal(j>^cal(j-l) 

cuitemp(j)=curtemp(j-l) 

Else 

xcalO)=tmpwl 
curtemp(j)=tmppos 
EXIT 
Endif 
End  do 
End  do 
74  continue 
return 
end 

SUBROUTINE  AbsCal(icnt) 


•  This  subroutine  uses  the  calibration  wavelengths  and  * 

*  extrapolates  a  fit  to  calibrate  data  file  * 


Include  TGRAPH-Fiy 
Indude'COLORS.H’ 

Include ’ROW_COL.H' 

Include 'DISPLAY.DAT 
Integer  icnt4hw(30) 

Real*8  datwn,ofiset,OSdi£r 
Real's  SF(30),Rfirst»Uast»WNMid,Sdum 
IF(icnt.eq.  l)then  !  wavelength  offeet 

call  addcct(filnam,'off) 

OPEN(53,FILE=fulnam,STATUS==lJNKNOWN') 

ofl&e^le7/xcal(l) 

calcp=curtemp(l) 

datwn^cdat(calcp) 

OSdi£N>fEset-(^twn 

aufeet=.true. 

Doi“l^ume 

xo£R;i)“  1  e7/(xdatCi>+osdif0 

cal3t(i>^offlA) 

Wriie(53,*)xoflB;0,ydat(0 
END  DO 
Close(53) 

ELSE 

Do  i“2  jcnt 

ihwO>%tt(cuitemp(i- 1  >4'CUitemp(J)y2 
END  DO 

datwn»  I  e7/xdat(curtemp(  1 )) 

Rfiist=xcal(2)-xcal(l)  [scaling  fectorstart>fii5t  cal  pt 
IF(cuitemp(l).eq.curtemp(2))goto  70 
SF(  1  ^Rfot/(curtemp(2>cuitemp(  1)) 

DoF=ljhw(2) 

cabtO>^ccal(lHSF(l)'0-curt*njp(l)) 

END  DO 

70  Continue 
Dor=24cnt 
IF(ieq.icnt)goto  71 

WNMirHoccalO+l^xcalQ)  'scaling  fector  for  middle 
SFO>=WNMid/(curtem^i+ 1  >curtempCi)) 

Do  j=nhw0t)4hw(k+ 1 ) 

IF(j.LT.curtemp(k))then 

Sdum=SF(k-l) 

ELSE 

Sdum=SF(k) 

ENDIF 

cabtO>^cal(k>i-Sdum'(j-curtemp(k)) 

END  DO 
END  DO 

71  Continue 

Llast=xcal(icnt>xcal(icnM)  [scaling  foctor  last  cal  pt>finish 
IF(nume.eqihw(icnt))goto  72 
SFCicnt>Uast/(curtempOcnt>curtemp(icnt*l)) 

DO  Whw(icnt)^ume 

cabc6>=xcal(icnt>+  SF(^t)*(J-curtemp(font)) 

END  DO 

72  Continue 

caU  8ddext(filnam,'cal') 

OPEN(52,FlLE»fulnarn,STATUS-a;NKNOWN’) 

IX>i=I^uroe 

wiile(52,*)cab^0.yfiat(i) 

END  DO 
CLOSE(52) 

ENDIF 

RETURN 

END 


267 


SUBROUTINE  REFRESH 
call  plot 
call  axis 
j^tum 
END 

SUBROUTINE  VIDSCRN 


select  the  video  mode 


INCLUDE 

INCLUDE  'display-dat 
INTEGER*2  dummy 
RECORD  Addeocon^  myscreen 
Can  getvideoconfig  (myscreen) 

SELECT  CASE  (myscrecn.adapter) 
CASE($EGA^OEGA) 

IF(myscreenjiiomtor  .EQ.  $MONO)tfaen 
dummy^setvideomode  (SERESNOCOLOR) 
else 

dummy^^setvideomode  (SERESCOLOR) 
endif 

CASE($HGC) 

dummy^setvideomode  (SHERCMONO) 
CASE($VGA) 

dummy=$etvideomode  ($VRES16COLOR) 
CASE($OVGA,$MCGA) 

dufnmy=$etvideomode  ($VRES2COLOR) 
CASE  DEFAULT 
dummy=0 
END  SELECT 

Can  getvideoconfig  (myscreen) 
maxx«  myscreenjiunuqiixels*! 
maxy^yscreenjiumypixeb- 1 
xl»<maxx-int2(maxx*xlview/100.dO))/2 
yl*<niaxy“int2(maxy^lview/l(X).dO)y2 
x2*OTaxX“Xl 
y2*maxy-yl 
RETURN 
END 

SUBROUTINE  AXIS 


label  die  axis 


INCLUDE ’^ph.£d' 

INCLUDE  'display-daf 
INCLUDE 'keycodcJi' 

INTEGER  xs 
INTEGER*2  dummy,dumroy3 
REAL*4  xdum 
CHARACTER  str*7,durachar*9 
RECORD  /rccoonV  ic 
cancleaiiine(29^9) 
dummy3=settextcoloi(15) 
xs*%it((xl_col+x2_col)/2) 
xduin==xr(nume) 

Ifi;cal_done)xdum=le7/calx(nume)  !cal_done  •  label  with  cal  axis 

Write(str,'(n.3)')xdum 

Can  settexQx)sition(x_iow^l_coUc) 

Canouttext(str) 

dummy3=iit(xs*1.36) 

cpl=%it(nume*0.333) 

xdum*^cpl) 

IF(cal_done)xduin=le7/cabc(cpl) 

Wtite(str,'(^-3)')xdum 
Can  settocQx}sition(x_iow,dummy3^) 

Can  outtext($tr) 
dumm>Nnt(xs*0.7) 
cp2^nt(nume*0.67) 
xdum»xi(cp2) 

IF(cal_d<^)xdum=l  e7/cabc(cp2) 

Wiite(str,'(f7.3)')xdum 
CaU  settex4>osition(x_TOW,dummy^) 

CaU  outtexd^str) 
xdum^cr(l) 

IF(cal_donc)xdum=le7/cabc(l) 

Write(stf,’(f7.3)')xdum 

Can  settex4x)dtion(x_row^_coUc) 

Can  outtext(str) 

Can  cleailine(3030) 
duinmy2  -  settextcolor(13) 
dumchaF=^OLD  FILE:' 


Can  settexQ)osition(30pcl_coUc) 

Can  outte^dumchar) 

Can  settex^sition(30pcl_col+10^) 
Can  outtext(oldname) 
dumchar=T'IEW  FILE:' 

Can  settextposition(30,dummy3^) 
Can  outtext(dumchar) 

Can  settextposition(30,dummy3+10^) 
Can  outtext(61nam) 
retum 
end 

SUBROUTINE  PLOT 


plot  the  graph 


INCLUDE  ’feraph.fd' 

INCLUDE  'display.daf 
INCLUDE  'keycode.h' 

INTEGER*2  dijmroy,dunimy2,duinmy3 

Real*8  xx2,yy2 

RECORD  /wxycoord/  wxy 

RECORD  /xycoord/  xy 

caU  cleaiscreen  (SGCLEARSCREEN)  I  clear  screen 

duinmy2=setcoloi(nIcl)  I  set  color  for  border 

duinmy2=settextcoloi(ntc)  I  set  color  for  text 

caU  setvieworg(0,0pcy) 

dummy  =  rectangle($GBORDER^l,yl^,y2) 
can  setviewpo!t(xl  ,y  l^,y2) 
dummy  =  setwindow(.true.,xmin,ymaxpanax,ymin) 
DOi=l,NUME 
xi(^^le(xdatCi)) 
yTti)=db!e(ydat(0) 
dummy=seQxxel_w(xiCi),yT®) 
dummy2=setcoIor(nlc2)  !  set  color  for  line  1 
IFCi.EQ.I)then 

caUmoveto  w(xr®,yi®,wxy) 

ELSE 

dummy  “  lineto_w(xi(i),yi(i)) 

ENDIF 
END  DO 

IF(plotsiro)then  I  Plot  RET  Simulation-caU  fiom  retsim 

icnta^lOOl 

xfi^odx)icnt8^twonuro 

DO^Ucnta 

dummy3*setcolor(9)  !  set  color  RET  SIMULATION 
xrr=dble(xfh1)) 
yrCi)=dbleO^) 
dummy®=sc^ixel_w(xiT,yiCi)) 

IFCi.EQ.l)then 

c^  moveto_w(xrr,yr(iXwxy) 

ELSE 

dummy  =  lineto_w(xir,yi(i)) 

ENDIF 
END  DO 
Ifi;.not.iodx)tben 

Dof=L100  !plot  marker  lines 

xir=dble(}q>s(i)) 

yii=dbleOTs(>)) 

caU  raoveto__w(xir,yinin,wxy) 
dummy  =  Iinelo_w(xir,yrr) 

END  DO 
ENDIF 
ENDIF 

lF(distwo)then  !  Display  second  file 

DO  i^Utwonum 
xx2»dble(xcol0)) 
yy2=dble(ycoI(i)) 
dummy=setpixel_w(xx2,yy2) 
duinmy2=setcolor(nlc4)  { set  color  for  fiiird  line 

IFCLEQ.l)then 

can  moveto_w(xx2,yy2,wxy) 

ELSE 

dummy  =  lineto_w(xx2,yy2) 

ENDIF 
END  DO 
ENDIF 

IF((moveone).or.(moveret))then  !  Redraw  Simulation  Right/Left 
DOr^lJplus 

lF(moveone)xx2=dbIe(xcol(0) 

IF(moveret)xx2=dbIe(xft(i)) 
yy2=dble(sQ)x(0) 
dummy“se^el_w(xx2,yy2) 
duinmy2=setcolor(nlc4)  !  set  color  fi>r  third  fine 


IFCi.EQ.I)then 

can  moveto_w(xx2,yy2,wxy) 
ELSE 

dummy = lincto_w(xx2,yy2) 
ENDIF 
END  DO 
ENDIF 


draw  the  calibialion  line 


IF(j\otdrawnocaOdien 

y3=yl+int2((maxyVlview/100.d0)*2scale/100.d0) 
call  setvicwpoit(xl,ylpc2,y3) 
dummy  =  setwindow(.true.panin,zmax,xmax,zinin) 
dummy2==5etcolor(nlc3)  I  set  color  for  line  2 
DOW,NUME 

zrCi)=dble(2dat(0) 

duinmy=se^pixel_w(xi(i)^i)) 

IF(i.EQ.l)then 

call  moveto_w(xrCi),zrCO.wxy) 

ELSE 

dummy=lmeto_w(xi(0^i)) 

ENDIF 
END  DO 

call  setviewport(xi,ylpc2,y2) 

dummy  =  setwindow(.tme.panin,ymax^ax,ymin) 
ENDIF 
plotsim«.&lse. 

Return 

End 


SUBROUTINE  Dat_File(ix) 

m 

11115  subroutine  stores  peaks  and  areas  by  simulating  * 
lorent2ianorgaussian&  * 


Include  TGRAPH.FD' 

Include  •COLORS.H’ 

Include  HOW  COL.H' 

Include  DISPLAY.DAT 
Include  TCEYCODE.H' 

Integer  opt,opt2jxjcapccur(100) 

Int^er*2  dununy,dummy2,y4 

Real*4  ytemp(lOO),ydii>^e,ydum,temp 

Character  Menul*78>lenu2*78,durachar*I3 

Character  $tr*7,str2*23^4*24 

Logical  done,aboit,wTtmsg 

Record /wxycoord/ wxy 

Record /iccoord/  rc^ 

cuiposNx 

ka^ff 

ba$elim4.0 

pldi^i=.tiue. 

peakmin=*yinin 

abort=.&lM. 

done-.&lse. 

witmsg».i^.  f-true.  when  message  on  line  29 

Menul  =  'F10- Reset  counter  FI -Set  Min  peak  ESC-'// 
+  Hetum  to  previous  screen' 

Menu2  =  'S-Maik  Peak  F-Auto  Peak  Finder  B-  Baseline'// 
+  '  W-Wiite  Data  File’ 


Callmessg(Menul,  1) 
Can  messg(Menu2, 2) 
Do  While(  Jtot  Done ) 


CaU  checUcC  opt ) 

SELECT  CASE  (opt) 

CASE(  $LFTAROW3COMMA,$LT  )  1  move  Cursor  left 

CaU  Curs_Lft(curpos) 

CASE(  $R<jrAROwiPERIOD,$GT )  !  move  Cursor  right 

CaU  Cuis_Rgt(curpos) 


CASE($CAP_0.$o) 

CattOfi&cale 

CASE($CAP_H,$h) 

bbigstep=.true. 

CaU  Cm:s_Lft(cuipos) 
CASE($CAP_J,$j) 
bigstep=.true. 

CaU  Curs_Lft(ciapos) 
CASE($CAP_L.$1) 
bbigstei^.true. 

CaU  Curs_Rgt(cuipos) 
CASE($CAP_K,$k) 
bigstep^.tiue. 

CaU  Curs_Rgt(curpos) 


!  CaUofi&cale 
!  move  Cursor  n^t 

!  move  Cursor  left 

I  move  Cursor  left 

I  move  Cursor  left 


CASE(  $CAP_W,$w )  !  write  file 

caU  addext(filnam,'mel') 

OPEN(51,FILE=fulnam,STATUS=UNKNOWN') 

Doi»l^ 

IF(cal_done)then 

Write(5 1  .•)calx(xcur(i)),ydat(xcur(i)),ytemp(i) 

ELSE 

temp=^dat(xcui(i)) 

IF(xdat(xcuiCi))Jt.  I000.)temp=le7/xdat(xcur(i)) 
Write(5 1  ,*)tOTp,ydat(xcur(0),ytemp(0 
ENDIF 
END  DO 

Menu  1  - '  Writing  peak  locations  and  areas  to  file' 

CaU  messg(MenuU  1) 

CaU  settextposition(L60,s) 

CaU  outtext(FULNAM) 
cIose(51) 

CASE(  $CAP_S,$s )  [mark  peak  for  fit  and  location 

ka=^ca+] 

If(wrtmsg)then 

caUaxis 

wnmsg=.&lse. 

ENDIF 

CaU  gauss(curpos) 

ytemp(ka)=yarea 

xcur(ka)=cuipos 

dummy  =  setcolor(nlc  1 )  [  draw  marker 

CaU  moveto_w(xr(curpos),yimn,wxy) 
y4=ymin+50 

dummy2  =  lineto_w(xr(curpos)»y4) 

CASE(  $CAP_F^f )  [  auto  peak  finder 

caU  cursor(curpos»0) 

Menul  ='  Use’//CHAR(24)//’  '//CHAR(2^/*  to  adjust  for*// 
+  '  min  peak  height  ESC  -  Return  to  previous  screen’ 

Menu2  =  '  Use  V/CHAR(4^/'  '//CHAR(43y/' to  adjusf//  . 

+  '  scaliitg  &ctor  Return  -  Find  Peaks' 

CaUmes5g(MenuI,  1) 

CaU  messg^enu2, 2) 
pkhglF^.&lse. 
baselin=°7dat(curpos) 
ydiff=»ymax«ymin 
ydum=ydifiD'4 

yscale^diff*0.05  I  step  size  for  peak  height 

ydclt=baselin+ydura 

caU  cursor(cuipos,l) 

DoWhile(.notpkhgh)  I  set  peak  height 

CaU  checkk(  opt2 ) 

SELECT  CASE  (opt2) 

C ASE<  SF 1 )  [Set  minpeak  height  for  peak  finder 
peakmin^dat(curpos) 
dumchai=’MIN  PEAK  -  ’ 

CaU  settexri>osition(2,61^) 

CaU  outtej^diunchar) 

Write(str,’(f7.2)')pcakmin 
CaU  settextposition(2,70^) 

CaU  outtextCstr) 

CASE(  SUPAROW,  SCAP^I,  SO 
olddd^deh 
ydelt^ydeh+yscale 
caU  cursoi(curpos,0) 

CASE($r) 
caU  refresh 
caU  messg(menu2,2) 

CASE(  SDWNAROW,  $CAP_M,  $m) 
olddel=ydelt 
ydelt=^delt-y5cale 

lF(ydelULb^elin)ydelH>aselin+yscale 
caU  cursoT(curpos,0) 

CASE($EQUAL,  SPLUS) 
y5cale=8bs(y5cale+10) 

CASE(  SMINUS,  SUNDRLIN) 
yscale==abs(y  scale- 10) 

CASE(  SESC^CAP.Q^ 
caU  cursor(curpos3) 

abort  =  .true, 
pkh^  =  .true. 

CASE($RETURN) 
caU  cursor(curpos3) 
pkhgh  =  .true. 

CASE  DEFAULT 
END  SELECT 
END  DO 
pkhgh  -  .true. 

IF(jiotabort)ttien 
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ydelt*^delt-baselin 

c^peakioc 

ENDIF 

can  cursoT(cuipos,l) 

8boit=.&lse. 

Menul  =  710 -Reset  counter  FI  -  Set  Min  peak  ESC-V/ 

+  'Return  to  previous  screen’ 

Menu?  =  'S-Maik  Peak  F-Auto  Peak  Finder  B-  Baseline'// 
+  ’  W-Write  Data  File’ 

CaUmessgCMenut,  1) 

Can  mes^^enu?,  2) 

CASE($r) 
caUrefiesh 
can  mes^menu?^) 

CASE(  $F  1 03F9 )  I  delete  data,  jeset  counter 

ka=K) 

Can  clea]1ine(3030) 

dummy?  =  settextcolor(messg_clr) 

Can  settexQx)sition(30,30^) 
str4^AU  Eteta  Points  E)eleted!' 

CaU  outtext(str4) 
str= '  RESET ' 

CaU  settextposition(2,47^) 

Can  outtext(str) 
wrtmsg^.true. 

CASE(  SCAP_B,$b )  !  marie  Baseline 

baselin=ydat(curpos) 
dumchar='BASELINE-  ' 

CaU  settextposition(2^7^) 

CaU  outtext(dumchar) 

Write(str,'(n.2)')baUlin 
CaQ  $ettextposition(2,47^) 

CaU  outtext(str) 

CASE($F1)  !  Set  minpeak  height  for  peak  finder 

peakmin^dat(curpos) 
dumchai-'MINPEAK-  ’ 

CaU  settextposition(2,61^) 

CaU  outt^dumchar) 

Write(str,'(f7.2)')pcaknim 
CaU  settexQ)osition(2,704) 

CaU  outt^str) 

CASE(  SDELETC )  I  delete  last  data  point  fiom  file 
Doi»l,cuipos 
If(ka.eq.01goto  70 
ka^ea-1 

CaU  cleariine(30^) 

CaU  settex^position(30,25 jc) 
dummy?  *  sette?rtcolor(text_eir_clr) 
wrtmsg=.true. 

str2=lAST  DATA  PEAK  DELET1ED!' 

CaU  outtext(str2) 

End  do 

70  Continue 

CASE(  $ESC,$CAP_Q^ )  !  return  to  previous  screen 

Done -.true. 

CASE  DEFAULT 
END  SELECT 
END  DO 
CLOSE(51) 

If(wTtmsg)caU  axis 

Menul='  Use '//CHAR(27y/'  '//CHAR(26y/’ keys  to  move’// 
+  ’  cursor  ESC  •  Return  to  previous  screen’ 

Menu?-'  FIO- Enter  RET  Simulation  Mode  '// 

+  ’  C  -  Enter  Calibration  Mode' 

CaUmessgCMenul,  1) 

CaU  messg(Menu2, 2) 

Ii(wilmsg)caU  axis 
return 
end 

SUBROUTINE  GAUSS(cp) 


Fit  a  lineshape  to  the  data  and  calc  area:  in  this 
case  a  lorentizian  homogeneous  broadened  line 


INCLUDE ’feraplLfd’ 

INCLUDE 'display.daf 
INCLUDE  'keyco^.h' 

INTEGER  cp4t4cnt4s^4niax 
INTEGER*?  dummy 

R£AL*8  xdum,di£Elw,test,ddumpq>ospq)lus,y 
REAL*8  al^yrep 
Logical  first 
RECORD  /wxycoord/  wxy 


yarea  =  0.0 
icnt  =  off 
first  “true. 
istp=10 

imax=nume-cp 
IF(imax.lt.  10)istp=imax 
IF(imax.lt.2)retum 
IF(cp.lt.l0)istp=cp 
IF(cp.lt2)retum 
Dolf^l^stp 
xpos=  I  e7/xdat(cp) 

IF(cal_done)jq)os=calx(cp) 

3q>lus=  1  e7/x(kt(cp^-k) 

IF(cal_done)xplus=cabc(cp+k) 

difilw=abs(:q>os-xplus)  IFind  fee  number  of  cursor  positi<ms 

ddum=^w/2  (which  are  dosest  to  the  line  width 

icnt=k 

IF(ddumJt.di£Dw)then 

al»abs(ddiun-test) 

a2=abs(difflw-ddum) 

IF(al.lt.a2)then 
icnHcnt-1 
goto  70 
Else 
goto  70 
ENDIF 
ENDIF 
test=di£Qw 
End  Do 
70  Continue 

xpos=le7/xdat(cp) 

IF(cal_done)xpos=cab((cp) 
dummy  -  setcolor(  15) 

IF(icnt.eq.0)icnt=l  (when  stepsize>lzr  line  width 
Doj=cp-icnt,cp+icnl  (ient  is  counter  for  cursor  posiliOT 
xdum=le7/xdat(j)  (Unewidfe 
IF(cal_done)xdum=cabc(j) 
yTep*=ydatO’) 
lfi>aselin.gt.0)then 
IF(fiist)feen 
yrep='basdin 
ELSElF(j.eq.cp+icnt)tben 
yrep=47aselin 
ELSE 

yrep»ydat(j) 

ENDIF 

ENDIF 

y=yrcp*(:glw/2)**?/((xpos-xdum)**2-Kglw/?)**2) 

dummy  =  setcolor(I5) 

Ifl[first)then 

lfl>aselin.gtO)y=baselin 
CaU  moveto_w(xdat0'),y,wxy) 

First».&lse. 

Else 

dummy?  *  lineto_w(xdat(j),y) 

Endif 

Yarea=Yarea+y 
End  Do 
Return 
End 

SUBROUTINE  OFFSCALE 


*  Hiis  subroutine  wUl  attempt  to  fit  ofi&cale  peaks  * 

*  by  fitting  a  lorentiaan  bn^hape  and  adjusting  Y  data  * 


Include  TGRAPH.FD 
Include 'COLORS.H' 

Include  DISPLAY.DAT 
Include ’KEYCODE.H’ 

Int^er  optcheck 

Int^er*?  dummy 

R£AL*8  temp^ore 

CHARACTER  str*7,dumchar*13 

Logical  done,first 

Record /rccoord/  s 

firs^.true. 

done^.felse. 

Do  While(  Jiot  Done ) 

CaUcheckk(opt) 

SELECT  CASE  (opt) 

CASE($CAP_H,$h)  (move  Cursor  right 

bbigstep=.true. 

CaU  Curs_Lft(curpos) 
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CASE(  $CAP_J,  $j )  (move  Cursor  left 

bigstq>=.true. 

Call  Curs_Lft(cuipos) 

CASE(  $CAP_L,  $1 )  I  move  Cursor  left 

bbigstep^^.tnu. 

Call  Curs_Rgt(curpos) 

CASE($CAP_K,Sk)  !  move  Cursor  left 

bigstep=.tnie. 

Can  Curs_Rgt(cuipos) 

CASE(SLFT^OW,$COMMA,$LT)  !  move  Cursor  left 
Call  Curs_Lft(CurPos) 

CASE($RGTAROW,$PERIOD.$GT)  !  move  Cursor  right 
Call  Curs_Rgt(CurPos) 

CASE(  SUPAROW,  $CAP_I,  $i) 
Ifl;fot)Temp=YDAT(curpos) 
first=.&lse. 

TEMP=TEMP+1 
dumchar*'  Ydata-  ' 

dummy=settextcolor(ntc)  !  set  color  for  text 
Call  settexQ>osition(2»37>s) 

Call  outri^dumehar) 

Wiite(str,‘(f7.2)')temp 
Can  sette}riposition(2,47^) 

CaU  outte7d(s!r) 

CASE($r) 
can  refresh 

CASE(  SDWNAROW,  $CAP_M.  Sm) 
If(first)Temp®YDAT(cuipos) 
first=.&lse. 

TEMP<EMP-I 


dumchaF^*  Y  data-  ' 

dummy=’=settextcoloi(ntc)  f  set  color  for  text 

Can  settex4>osition(237^) 

Can  outt^dumchar) 

dummy=settextcolor(ntc)  I  set  color  for  text 
Write(str.'(f7.2)')temp 
CaU  settextposition(2,47^) 

CaU  outtexh^str) 

CASE($EQUAL,$PLUS) 

TCMP»TEMP+10 
dumchar*'  Ydata-  ' 

dummy=5ettextcolor(ntc)  !  set  color  for  text 
CaU  settextposition(237.s) 

CaU  outt^dumchar) 

dununy=’5ettextcolof(ntc)  !  set  color  for  text 
Write(str,'(n.2)')temp 
CaU  settex^>osition(2,47^) 

CaU  outtext($tr) 

CASE<  SMINUS,  SUNDRLIN) 

•reMP=TEMP-10 
dumchar^  Y  data-  ’ 

dummy^=5ettextcoloi(ntc)  I  set  color  for  text 
CaU  settex^position(2^7^) 

CaU  outt&ct(dumchar) 

Wiite(str,'(f7.2)')temp 
CaU  settex^>osttion(2,47^) 

CaUouttext(str) 

CASE($y) 

ymajp^MP 

CASE($CAP_S,$s) 

YDAT(check)=TEMP 
CASE(  $ESC^AP_Q^ 

Done=.true. 

CASE($RETURN) 
caU  refresh 


checl^^ctupos 
store^dat(curpos) 
ydat(cutpos)»^p 
caUgauss(cuipos) 
ydat(curpos)=store 
CASE  DEFAULT 
END  SELECT 
END  DO 
Return 
End 


SLARGE 

SSTORAGE:  2 

SDEBUG 

SUBROUTINE  DXSlM(short4ong) 
implicit  real*8  (b-h^-z) 
implicit  real*4  (a) 
integer*4  dlevel^eveljdjxjp  jpp,J 
dimension  dbconst(25),xtenn(6^^bconst(50)^const(50) 
dimension  xdconst(50),VO(30,50),Dlevel(35),Xlevel(3^ 
logical  store,vil>leveUange^ore^pectro,frstmd 
COMMON/SPECT/  spectro4dzum4xzum,bec,decpcec,yec,frstmd 
data  (dbconst(i)^l  ,20)/0.020649,0.020605, 0.020561, 
cO.020516,0.020472,0.020427,0.020382,0.020337,0.020292,0.020246, 
cO.020201,0.020155.0.020110.0.020064,0.020018,0.019972,0.019925. 
c0.019879,0.019833, 0.019786/ 

data(xterm(i),i=20,47)/4129.774,4316.736,4502.257,4686.322, 
c4868.917,5050.024.5229.627,5407.710,5584.255,5729.243,5932.657, 
c6l04.475,6274.679.6443.247,6610.156,6775.385,6938.908,7100.702. 
c7260.740,7418,996, 7575.441,7730.048,7882.7853033.622, 8182.528, 
C8329.47, 8474.414,8617.324/ 

data(xbconst(i)4=20,47y0.0348628,0.0347295,0.0345948,0.0344590, 
c0,0343218,0.0341832,0.0340433,0.0339018,0.0337589,0.0336143, 
cO.0334680,0.033200, 0.0331701,0.0330182,0.0328642,0.0327081, 
cO.0325496,0.0323887.0.0322252,0.0320589,0.0318898,0.0317176, 
cO.0315423, 0.0313636, 0.0311813,0.0309953,0.0308054,0.0306114/ 
data(xdconstCi),i=20,47)/5.22.5.27,5.33,5.393.45,5.51,5.58,5.65, 
c5.733.813.89,5.98,6.07,6.17, 6.27,6.38,6.49,6.61,6.74,6.87,7.01, 
c7.16,731,7.48,7.65,7.83,8.02,8.22/ 

data  (xhconst(i)>=20,47yil.2, 11.8,12.5,13.3, 14.1, 15.0,15.9,16.9, 
c18.0,19.230.5,21.9,23.435.0,26.738.630.632.8,35.137.6,40.3, 
c43.2,46.4,49.7,53.4,57.3,61.5,66.0/ 

■ra=41026.16614 

Y10=95.ni746327 

Y20=-0.n  1495227 

Y30=-5.792874546e-4 

Y40=4.205281828e-6 

Y50*=-1.408244378e-8 

Y60=2.68736882e-ll 

Y70»>^2.3114805e.l4 

YI>4.43e-9 

IF(spectro)YD®3.63c*9«<yec/le9) 

IF(jiotspectro)then 

xec=0. 

bec=0. 

dfic®=0. 

yeoN). 

ENDIF 

itst*999 

store^.&lse. 

range=.true. 

lF(short.gt.ll00.)then 

temp=short 

8hort=temp/le7 

teinp=^ong 

ilong=temp/le7 

ENDIF 

IF((shoitGT.  1000).or.(riong.C7r.  I000))then 
cmshort=short 
cmrlong^ong 
IF(shortLT.riong)then 
temp=cin$hort 
cmshoit^cmrlong 
cmrlong’^temp 
ENDIF 
GOTO  25 
ENDIF 

IF(shortGT.riong)then 

temp^ort 

sboit^ong 

rlong«temp 

ENDIF 

25  cmshoit=le7/short 
cmriong=le7Mong 

o&ct=150. 

26  continue 
il=l 
i2=18 
i3=20 
i4=47 

icount=0 
IF(spectro)ftien 
il»idzum  ID  state  low 
i2^dzum  IDstate  hi^ 
i3»rixzum  IXstate  low 


n  o  o 
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i4=^xzum  IXstatehigh 
ENDIF 

Do  100jp=il42 
Do  n0jpp=i344 
vp=3p+0.5 
Vl“Vp 

v2=vp**2 

v3=vp**3 

v4=vp**4 

v5=vp**5 

v6=vp**6 

v7=vp**7 

Bandor=Y10*vl+Y20*v2+Y30*v>fY40»v4+y50*v5fY60*v6+Y70*v7 

VO(jpjpp)=TE+Bandor-xtennCjpp) 

C  lF(jiotspectro)then 
C  IF(jp.eq.5)then 

C  VO(jp jpp)=VO(jp  jpp>+‘0. 1 0 

C  ENDIF 
C  IF(jpeq.6)then 

C  VO(jpJpp>=VO(jpjpp>H).04 

C  ENDIF 
C  ENDIF 

•  wnriong  and  wnshort  are  ttie  calculated  band  ongins  within  the  region  of  • 

•  interest....ttie  input  region  is  doubled  * 

wnriong=2*cmriong 

wnshoit=2*(cmshort+offi5et) 

IF((VO(jpjpp).LE.wnshort).and.(VO(jpJpp).GE.wniiong))then 

icounHcount+1 

Dlcvel(icount)^ 

XIeveKicount)^p 
i^icountgt30)goto  28 
ENDIF 
110  contiruie 
100  continue 
28  IF(icount.gt30)thcn 
of&et=ofi&et*10. 
goto  26 
ENDIF 

IF((spectro).and(iiot  fistmd))then 

op^unih=54Ie“DXPOS.dat',access=’append';5tatus=^unknown') 

ELSE 

open(uni^^e=DXPOS.daf,status=‘unlmown') 

ENDIF 

xnore«.&lse. 

Do2F»14count 

viblevel“.true. 

jd=Dlevel® 

jx»XlcvdO) 

IF(JioLspectFo)then 
lF(range)wnte(5, 1 5)cinshortcindong 
IF(range)write(5, 1 4)itstjdJx 
IF(igtl)more=.true. 
lF((vibleveOand.(inore))then 

wxite(5,13)jdjx 

ENDIF 

ELSEIF($pectro)then 

ifi[fistTnd)wiite(5,15)cinshoTt,cmdong 

ifl;fistmd)wnte(5,l^tstjdjx 

ifl;.notfotind)w[ite(5,14)its^dJx 

ifi;jiotfistind)write(5,13)jdJx 

frstind».fiilse. 

ENDIF 

13  FORMAT(4X44,4XJ4) 

Do  1  J=l,150 

Y=J*(J+1) 

xduin^(bcons<jx) 

IF(q)ectro)xdum=^bconshjx>xec 

X-Y^cdum-(xdconst(jxyie9)*Y*Y+(xhconst(ixyicl6)*Y*Y*Y 
Y=J*(J-1) 
xduxiF’i&consXjd) 
xdum2=VO(jdJx) 

IF(q>ectro)xdum=dbconst(jdydec 
IF(spectro)xduin2=VO(jdox)-bec 
IF(jiotspectro)dien 
IFad.eq.4)YD=2.6e-9 
IF(jd.eq.7)YI>4.43e-9 
IF0d.eq.l0)YD=4.2e-9 
ENDIF 

P»xduiD2+Y*xdum-YD*Y*Y-X 

YKJ+1)*(J+2) 

R=xduin2+Y*xdum*YD*Y*Y-X 


aRvis=R/2. 

aPvis=P/2. 

aPnm=le7/aPvis 

aRnm=le7/aRvis 


Calculate  intensity  of  the  P  and  R  branches 
Honl-Undon  S(PH  S(R>=J+1 


aRstigth=(xbconst(jx)»J*(J+l)KxdconstGxyie9)*(((J+l)*J)**2) 
aPstrgth=<xbconst(jx)*J*(J-l)Kxdconst(^yie9)*(((M)*J)**2) 
IF(aRvis.LE.cnishort  .and.  aRvis.GE.cmrlon^rthen 
store  =  .true. 

ELSE 

aRvis=0. 

aRnm=0. 

ENDIF 

IF(aPvis.LE.cmshoit  .and.  aPvis.GE.cmrlong)then 
store  =  . true. 

ELSE 

aPvis=0. 

aPnin=0. 

ENDIF 

IF(store)then 

IF(aPvis.gt.0)write(5,I6)J,aPstrgth,aPvis*2. 

IF(aRvis.gt.O)wiite(5,16)J+500,aRsligth^vis»2. 

14  FORMAT(4X,I4,4X,I4.4X,I4) 

15  FORMAT(4X.F10.4,4X,F10.4) 

16  FORMAT(4X,I4,4X.E12.6.2X,F10.4) 
store  » .&lse. 

viblevel  =  .false, 
range  -  .false. 

ENDIF 

1  continue 

2  continue 

IF(.not.spectro)endfile  5 

return 

end 

SUBROUTINE  DXSlMTWO(datanm,alw) 

■  -  .  .  ■  . . . . -  . . —  ■■■* 

■  His  program  siniiilates  12  D-X  spectra  for  the  hi^-lyingvibraSonal* 
*  levds  of  ground  state  iodine  * 


INCLUDE  ’display.dal* 

int^er  datanin4duiiimy4count(35) 

int^er  jcnt(3L100)^ 

int^er*4  idstBte(40)4xstate(40)4cntjj  Jym 

real*4  alw^^^j(31,100),FCroX(400),inean 

rcal*4  xh^ydw,xhigluxlow,;qx>s(3L100) 

rcal*4  yi2(l00),yp(100),yy,yyr,yst(32,15l0) 

realms  FCF(40)p(st,xx,sigina,boltz,xboltz,gaus5,distro 

logical  range^ore,calcnin,even 

Common  /DX_SIM/  ysLFCFjdstatejxstate 

iange=.tnje. 

ealenm-.true. 

Doj=l,20 
p<i>0)=0.1 
END  DO 
Dorl32 
tmpr(j^78. 

END  DO 

IF(datanm.EQ.0)calcnm=.&l5e. 

Open(unit=5,FlLE='DXPOS.DAr4VCCESS^SEQUENTIAL') 

Rewind(5) 

IF(range)then 
Read(5>  1 6)xh0i,xlw 
Read(5,14)idummy4dstate(l)4xstate(l) 

14  FORMAT(4X,I4,4X44,4XJ4) 

xhi^»xhgh*2. 
xlow=xlw*2. 
range=.false. 

ENDIF 

icnH) 

more=.true. 

Dolilp=135 

iait=icnt+I 

wH> 

Do  10i=LIO0  [assume  less  than  100  lines  per  band 

IF(more)icount(k)=0  [ofa  typical  scan 

mOTe=.&lse. 

Read(5,l  5^NI>36)jcnt(Ty)pcj0gi)pqx)s(ly) 
IF(jcnt(k^.eq.999)lhen 
m^c+1 

Read(5,13)idstate(m)4xstate(m) 
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13  Fonnat(4X44.4X44) 

more=.tnie. 
goto  35 
ENDIF 

Ifljcnt(k4).gt0)icount0c)=i«>unt0c>+ 1 

15  FORMAT(4X,I4,4X312.6,2X,F10.4) 

16  FORMAT(4XF10.4,4X,F10.4) 

10  continue 

35  continue 

11  continue 

36  continue 
iband=icnt+l 

xst=(xhi^-xlow+alw)/ 1 498. 
js=0 

Doj2=l,150 
js^s+1 
END  DO 
DO90k=Ucnt 
xx=xlow 

DO  91  j=Ucount(k)  !icount=number  of  P  and  R  lines  in  band 

IF(jcnt(kj)Jt499)then 
ins=(-l)**jcnt(kj) 

ELSE 

jcHcntGcj)-500 

ins=(’l)**jct 

ENDIF 

IF(insJtO)then  (nuclear  spin  statistics 

even=.&lse. 

S=7yi2.  ls=7/12 

Else 

s=5712.  Is=5/12 

evcn=.tme. 

ENDIF 

lF0nsit0)then 

even=.true. 

ss=5yi2.  (88=5/12 

ELSE 

85=7712.  (85-7/12 

even*'.felse. 

ENDIF 

yr2(j)-0.0 

yp(j)=0.0 

boltr=<).6952*1nipr(ixstate(k)) 

IF(jcnt(kj)aL499)thcn 

iHcntOy) 

xboltz-^expC’XjCkjyboItz)  (boltzxnann  distribution 
iDean=^s/totJ(ixstate(k))  (gaussian 
gauss=<ah/PD**0.5»cxp(-ah*Cy-inean)**2) 
distco^cboltz 
IF(gowss)distro^uss 
yp0>s*ij*(2*ii+l)**stro 
C  I^even)  yp(j)=5*ij*(2*ij+l)*xbolt2 

C  IF(jioteven)  yp(j)=s*ij*(2*jj+l)*xboltz*  1.3 

ENDIF 

IF(jcntCkj).ge.500)dien 
irtcntCkj)-500 
xboltz=ejqp(-xj(kJ)/bolt2) 
inean=js/totJ(ixstate(k))  (gaussian 
gauss=(ah/PI)**0.5*ocp(-ah*(ij-inean)**2) 
distro^boltz 
IF^ow5s)di5tro=^auss 
yr20>ss»(ii+l)*(2*iH-l)*<iistro 
C  If(even)  yi2(j)=ss*(B+l)*(2»iH-l)*'xboltz 

C  IF(jioteven)  yi20>=ss*(ii+l)*(2*jj+l)*xboltz*1.3 

ENDIF 
91  continue 
Do80i=l,1501 

X>P^+XSt 

yy=O.0 

yyp=K).0 

yyr^O.O 

Doja-14count(^)  (sum  for  the  R  lines 

IF(yr20a).gt.O)then 

if(abs(;q)os(kJa>xx).gt(3*alw))  goto  81 
IF(LORENTZ)then 

yyi=yy+yi2(ja)*(17PI)*(alw/2.y((xx-xpos0ya))**2.+(alw/2.)**2) 

ELSE 

sigmff=l/((alw/2.)*(2.»PI)**‘0.5) 

yyr=yy+yi2(ja)*sigma*e3i(-0.5*((xx-xpos(kJa))/(alw/2.))**2) 

ENDIF 

yy=yyfyyr 

ENDIF 

81  IF(yp(ja).gtO)riien 

ifl;al^3q)os0ya>xx).gt(3.*alw))  goto  82 


IF(LORENTZ)then 

yyp=y>H7p(ja)»(17PI)’'(alw/2.y((xx-xpos(kJa))**2+(alw/2.)»*2) 

ELSE 

sigma=17((alw/2.)*(2*PD**0.5) 

yyp=yy+ypija)*Mgma*exp(-0.5*ftxx-xpos(kJa)y(alw/2.))**2) 

ENDIF 

yy=yy+yyp 

ENDIF 
82  continue 
END  DO 
m=4:+l 
yst(in4)=yy 
IF(k.eq.l)then 
lF(j\ot.calcnm)then 
yst(U>=xx 
ELSE 

yst(U)=le7/xx*2. 

ENDIF 
ENDIF 
80  continue 
90  continue 
jlH) 

Open(unit=13,FILE='FCF.DAT,STATUS=’old') 

Do34jc=1328 

READ(13,19,END=37)FCFduin 

IF(FCFdumJt.l)then 

jk=jk+l 

FCFDX(jk)=FCFduin 
ENDIF 
34  continue 
37  continue 
19  Fonnat(Fll.^ 

aose(  1 3^tatus=Tceep') 
k=0 

D0  44m=14cnt 
lF*m+l 

IF((ixstate(in).lt3O).and.0dstate(ni).ge.  10))then 
IF(idstate(in).eq.lO)FCFO:>»1.0e-4 
IFCidstate(m).eq.l  l)FCF(k)-l  .Oe-4 
IFCid8tate(in).eq.l2)FCFac)»1.0e^ 

IF(Cidstate(m).eq.l3).and.(ixst8te(in).eq.29))FCF(k)“1.6835e-3 
IF((idstate(ro).eq.l3).and.0xstate(in)ie.28))FCF(k>=1.0e^ 
IF((idstate(m).cq.  1 4).and.(ixstate(m).eq.28))FCF0c>=l  .312e-3 
lF((idstate(m).eq.l4).and.(ixstate<m).eq.29))FCF0c)“3.1O8e-3 
IF((idstale(m).eq.l4).and.(ixstate(m)Je.27))FCF(k)-1.0e-4 
lF(Cidstate(in).eq.l^.and.(ixstate(in).cq.27))FCFCk>*9.849e-4 
IF((idstate(m).cq.l^.and.(ixstate(m).eq.28))FCF(k)»2.418e-3 
IF(Cidstate(m).cq.l^.and.0xst8te(m).eq.29))FCF(k;^5.301e-3 
lF((idstate(in).eq.  1  ^.and.(ixstate(m)  Je.26))FCF0c)=l  .Oe-4 
IFttidstate(m).eq.  l^.and.(ixstate(ro).eq.27))FCF(k>=l  .815e-3 
lF((idstate(m).eq.l^.and0xst8te(m).eq.28))FCF(lc;M.143e-3 
IF((idst8te(in).eq.l^.and.(ixstate(in).eq.29))FCF(k)=8.368e-3 
lF((idstBte(m).eq.l^.and.(ixstate(m)Je.26))FCF(k)=1.0e-4 
IF((idstate(m).eq.l'^.and.(ixstate(m).eq.2^)FCF(k;^1.312e-3 
IF((idstBte(in).eq.l'^.and.(ixstate(m).eq.27))FCF(lc>=3.129e-3 
IF((idstate(m).eq.l'^.and.(ixstate(m).eq.28))FCF0c)=^.614e-3 
IF(0dstBte(in).eq.l'^.and.(ixstate(in).eq.29))FCF^>=1.223e-2 
IF(0dstate(in).eq.l7).and.Cixstate(ni)Je.25))FCF0:)=1.0e-4 
IF(idstate(nj).ge.l8)FCF(k>=l  .Oe-4 
goto  41 
ENDIF 

IF(]dstate(m).gt.  1  ^)tiien 
FCF0c)=1.0e-4 
goto  41 
ENDIF 

IF((ixstate(in)Jt30).or.(ixstate(m).gt47))then 
FCF(k)=1.0e-6 
goto  41 
ENDIF 

jH(idstate(m)*  1 8Xixstate(m)-30)y- 1 
FCFOcy^FCFDXOf) 

41  continue 
44  continue 
close 
return 
end 

SUBROUTINE  DX0NETIME(nex,wgh,fiisUd4x^uin4t_aIl) 

m  -  -  —  - * 

•  This  program  simulates  12  D-X  spectra  for  the  high-lying  vibrational  • 

•  levels  of  ground  state  iodine  one  levd  at  a  time  using  scale  &ctor  * 

•  _  - _ — 

INCLUDE 'display.dat'  !nex-do  next  band 

int^er*4  id4x4dstate(40)4xstate(40),nume2  ( first-first  time 
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int^er*4jjbXiex 

real*4  xduinmy,ydunmiy,ysiin,yst(32,1510)  !id-v  of  d  state 
real*4  ymaxtenip,yinaxsim 

real*8  fdum,wgh,wegh(40)^CF(40)  !ix-v  of x  state 

logical  nex,wite,first,fit_all  ifdum*  fcf 

Common  /DX_SIM/  yst,FCF4dstate4xstate 
linumq  steps  die  simulation  duou^  each  band  detennined  in 
Isubroutine  DXSIMTWO 

lF(first)then  !  finds  ymax  for  all  band  in  simulation 

ymaxsim^K). 

Dok=24band 

DoH.1501  (loads  y 

ycol(j>=yst(kj)*FCFOc)*pop(ixstate(k-l)) 

END  DO 

nume2=1500  (find  max  and  min  of  simulation 

can  minmax(ycol^ume2pcdummy,ydummy) 
ymaxtemp=dble(ydummy) 
IFO^axtemp.gtymaxsim)ymaxsiin=ymaxtemp 
ENDDO 
ENDIF 

91  wTte=^.&lse.  !logical.tnie.  when  all  bands  viewed 

IF(fit_all)nex=.true. 

IF(nex)inumq=inumq+ 1  (logical  nex  allows  new 
fdum=FCF(inumq) 

IF(inumq.gtiband)goto  37 
id=idstate(inumq- 1 ) 
ixNxstate(inumq-l) 

w^(^umq)=w;^  (weight  for  band 

Doj»l,1501  (loads  x  and  y 

ycoIO'>=yst(mumqj)*FCF(mumq)*w^(inumq)''‘popCix) 
xcol0>=yst(lj) 

ENDDO 

Do  jb«l,1501  (scale  intensity  of  simulation 

ycol01)H((ymax-ynim)/ymaxsim)*ycol(ib)>+-yinin 
ENDDO 
first=.&lse. 

(sum  all  bands  and  write  file 
37  IF((fit.all).and.Cinumq.LEiband))goto  9 1 
IF(inumq.OTiband)then 
open(iinit*9,  file**'simdx.dat'^tatus=*1inknown') 
wite«.true. 

ENDIF 

DoH,1501 

yrini=0. 

Do  k=‘2^umq*l  (sum  aO  for  each  x 
iex’nxst8te(k-l) 

ysim=ysiin+ystOy)*FCF(k)*w^(k)*pop(icx) 

ENDDO 

xft0>y5t(ij) 

yft(j)=ysim 

IF(5numq.GTiband)  xcol(i>=yst(l  j) 

IF(^umq.GTiband)  ycoI(i)=>^im 
ENDDO 

Do  jb=l,150I  (scale  intensity  of  simulation 

yft(jl))K((3TOax-yiriinVymaxsim)*yftO'b))+yinin 
ENDDO 

IFOnumq.CTr  iband)then 
call  minmax(ycoljiume2,xdummy,ydummy) 
ymaxsim=dble(ydummy) 

Dojb»14301  (scale  intensity  of  simulation 

ycol(jbM((ymax-yminyymaxsim)*ycol()b)>+-yinin 
wiite(9, 1  ^col(jb),ycoi(jb) 

ENDDO 
dose  (9) 
plotsim=.&lse. 
fit_al^.fidse. 

ENDIF 

16  FORMAT(4X^16.4,4XJ16.6) 

IF(wite)then 

Open(unit=84?ILE=DXPOS.FCF^tatus=UNKNOWN') 

Doi^ldband-l 

writeCS,*)!)  state  -'ddstate®,'  X-' jxstateCO, 

C  weighf,wegh(i+l) 

wiite(8,*)’FCFJ'CFCt+l),’  Populadtm’,  popCostate®) 
write(8,*) 

ENDDO 

Close(8) 

ENDIF 
99  return 
end 


$STORAGE;2 

SINCLUDEiTGRAPH.FI' 

SDEBUG 

SUBROUTINE  RETDRAW(ids4xs  jlvl,blinjate,press) 


•  A  Graphics  Program  which  fits  and  simulates  rotational  ene^  * 

•  transfer  data  from  the  SEP  e7q>eriment  and  recorded  in  the  * 

•  LAMBDAprogramsfromdieLaboratoryofM.C.  HEAVEN.  • 

•  Source  Code  by  M.  Nowlin  Sep  93  modified  Mar  94  • 


Include 'FGRAPH.FD 
Include  DISPLAYDAT 
Indude  ’KEYCODE.H’ 

Integer  optJlvl^SSDeg 

Integer*2  iddum4xdum,dummy,kx4cd»stol^to2^to3^to4^to5 
R£AL*4  chg^ttmp^tc4atal^tap^talw^tt,scale 
REAL*4  xfit,yfit,press,dumchg 
R£AL*8  rettmpjetC4etaUetap^talw^tt,blin,dume 
R£AL*8  largepq>os»ypos,ainv,begin,end^jate,al2s 
REAL*8  rotranajotranb^otranc^-otrandjotranejottanf 
Character  str-‘2^trl  •5^*4^ti3*6^tr4*3^ti6*  1 5^tr7*20 
Logical  doagain,done,plus»sub,first,prostp,IPL,twoslope^ 

Dimension  yfit(3005);<fit(3005),ypos(110)p(pos(110) 

Common  /RET_S1M/  xfit,yfit4ddunyxdum,xpos,ypos,IPL,SSDeg,scale 
Common  /PAR_SIM/  reltmp,retc,retaUetap^talw/ett,al2s,twoslope 
Common  /RET_LAB/  rattmp,ratc  jataljatap4alalw4atUocJ:d 
Common  /RET_OUT/  rotranajotranb^tranc/otrandjotrane^otianf 
RECORD  /rccoord/  s 

stol==mlcl  (remember  colors  for  printing  graphics 

sto2»nlc2  (load  'graphics  laseijedl’ 

sto3»mlc3 
sto4^c4 
sto5=mtc 
al2s»0. 
fiist=.tnie. 
twoslope^.false. 
sa=.&lse. 
dume=1.0 
scale^l.O 
SSDt^SDeg 
ainv=«1.0 
IPL=inverse 
iddum^ds 
k(Hddum 
ixdumHxs 
kxHxs 

y2mB;o»ymax 
rotran^ottmp 
rotranWotc 
rotranc*^tal 
rotrand^rot^ 
rotrane»rotalw 
rotranfrTott 
b^in^dat(nume) 
end^dat(l) 
lF(cal_done)then 
b^iip’calxCl) 

Ifi;cab((l).eq.O)begin’^dat(nuroe) 

end=calx(nume) 

If(cab((nume).eq.O)end^dat(l) 

ENDIF 

If(end.LT.9000.)end=le7/xdat(l) 

Ift>egin.LT.9000.)begin=le7/xdat(nume) 

If(begin.LT.en®then 

temp=begin 

b^in^end 

entHemp 

ENDIF 

rte=^ress*3.24e4*r8te  (3.24e4  =  3.24el3  moIecc/mTorr*  le-9  s/nanos 
100  callretsim(ids4xsjlvl,baselirufirst^v,begin,end^^) 
first^.&lse. 
laige*le-2 
DOi=l,1501 
xft(i>=^t(i) 
yftCi)=yfit(i) 

]arge=DMAXl  (large, yfit®) 

ENDDO 
scaldif^laige>blin 
scal&ct=y2max/scaldifr 
DO  1=1,1501 
ytcmp=yft(i)-blin 
yft(iy7temp*scal&ct+blin 
ENDDO 
Do  1=1,100 


(pass  spin  degeneracy  choice  to  RETSIM 
(inverse  power  fit  alpha=l  .0 
[pass  logical  for  inverse  fit  to  RETSIM 
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ypsCi)=yposCi) 

xps(^H(posCi) 

END  DO 
plotsiin=.true. 
c^plot 
call  axis 
iattmp=  rettmp 
ratc=^etc 
ratal=7etal 
ratap=retap 
latahv^Tetalw 
ratt=Tett 
callre^bel 
chg=0.1 
sub».&lse. 
phis=.tme. 

dununy=settextcoloi(  1 5) 

doagain=.&lsa. 

done^.&lse. 

pros^.false. 

jplus=0 

jminusM) 

jpcnt=0 

Do  While(  Jiot  done ) 

Call  checld((  opt) 

SELECT  CASE  (opt) 

CASE($CAP_W,$w)  !  write  file 

can  addext(filnani,'sim') 

OPEN(75,FILE=fulnam,STATUS=lINKNOWN‘) 

write(75,*)ids4xsjlvl,baselin 

write(75,73)rettmp^tc/etal 

writ^75,73)retap^talw^ 

73  fonnat(lX,F8.4^X^.4^X4^.4) 

lfi[cal_done)fi)en 

Doj-l.l501 

jH 

IF(ja.gtiuin]e)ja^ume 
lfl;catx(ja).gt  1200)calx(ja>“le7/calx(ja) 
write(7544)xfit0),yfi(i).<»b<ja).y<iat(ja) 

END  DO 
Elseii(au&et)fiien 

Dorl.1501 

M 

IF(ja.gtJiume)ja=fiiiine 

If(xoflRja).gtl200.)xoflJja)*le7/xofi(}a) 

write(75,54)xfit0'),yft0)pcofflja),ydattja) 

END  DO 
Else 

Dorl.1501 

write(75*)xfit(i),yft0) 

END  DO 
ENDIF 

54  Fomiat(2(F8.4^XF10.4^X)) 

CASE(  $CAP_J,  $j )  !  move  Cursor  left 

bigstep^.true. 

CaU  Curs_Lft(curpos) 

CASE(  $CAP_K,  $k  )  !  move  Cursor  right 

bigstep=.txue. 

Call  Curs_Rg^curpos) 

CASE($ONE) 

chg=0.001 

prosri)=.true. 

str3='chg' 

caU  settextposition(2^7^) 
can  outtexh;str3) 

Wiite(str3,'(ft.3)'^hg 
can  settexrix>sition(23l>s) 
can  outtext(str3) 

CASE($TWO) 

chgm.Ol 

pros^.tiue. 

str3»='chg' 

caU  settexQx>sition(2^7^) 
caU  outtext(str3) 

Write(str3,'(K.2)')chg 
can  settextposition(231>s) 
can  outtext(str3) 

CASE($THREE) 

chg==0.1 

prosri>=-true. 

8tr3='chg' 

can  settexrix>sition(2^7^) 
can  outtext(str3) 

Write(str3,’(f6.2y)chg 


can  settextposition(231>s) 
caU  outtext(str3) 

CASE($FOUR) 

chg=1.0 

prostp=.true. 

sli3='chg' 

call  settextposition(2,27^) 
can  outtext(str3) 

WDte(str3,'(f6.2)')chg 
can  settextposition(231.a) 
caU  outtext(str3) 

CASE($FIVE) 

chg=10. 

prostp=.liue. 

slT3='chg' 

caU  settextposition(2^7^) 
caU  outtext(5tr3) 

Write(slT3,'(fc.2)')chg 
can  settextposition(231»5) 
caU  outtext(str3) 

CASE($S1X) 

chg=25. 

prostp=.tiue. 

str3»=’chg' 

caU  settexrix>sition(2^7^) 
caU  outtext(str3) 

Wiite(str3;(f6.2)’)chg 
caU  settextposition(231>s) 
caU  outtext(str3) 

CASE($SEVEN) 

retCF^etc/lO 

ratc*^etc 

Write(str3;(f6.3)’)ratc 
caU  settextposition(l,21;s) 
caU  outtex^$tr3) 

CASE($LFTAROW)  I  change  scale 
IF(plus)scale’»scal&+chg 
lF(sub)  scale=scale-chg 
IF(scale.lt.0.01)  scale^.Ol 
can  cleariine(30,2^ 
str7*'Scale  ' 
caU  5ettextposition(30,50^) 
canouttext(str7) 

Write(str3,'(K.2)')scale 
can  $ettextpositicm(30,58^) 
can  outtext(str3) 

CASE(  SRCTTAROW )  I  move  Cursor  ri^t 
CASE(SCOMMA,$LT) 

Bub“.true. 

plus^.&lse. 

CASE($PERIOD,$GT) 

phis^.true. 

sub-.&lse. 

CASE($F1) 

IF(prosri>)thcn 
IF(plus)i  ettmp-rettmp^-chg 
IF(sub)  rettmp=rettmp-chg 
ELSE 

IF(plus)rettmp=Tettmp+ 1 
IF(sub)  rettmp*^ettmp-l 
ENDIF 

rattmp-rettmp 
Writ^strl /(f5. 1  )')rattmp 
can  5ettexrix>sition(L10^) 
caU  outtex^strl) 

CASE(SF2) 

IF(prosri>)ft«n 
IF(plus)retc=ieto+chg 
IF(sub)  reto=Tetc-chg 
ELSE 

IF(plus)^etc-=^eto^^O■  1 
IF(siib)rete=Tetc-0.1 
ENDIF 
ratc^tc 

Write(slr3;(f6.3)’)ratc 
can  settex4)Osition(l^l^) 
can  outtex^str3) 

CASE($F3) 

diimchg==10.0 

IF(SSDEG.eq.5)dumchg»l  .0 
IF(pros^)ftien 
IF(plus)retal^etaH-chg 
IF(5ub)  retah?etal-d)g 
ELSE 


IF05lus)retal=Tetal+dumchg 
IF(sub)  retal=retal-dumchg 
ENDIF 
ratah^etal 

Wiite(str3;(f6.2)')ratal 
call  settexQx>sition(133»s) 
call  outtext(str3) 
CASE($F4) 

IF(pros^)then 
IF(pliis)ret^j=Tetap+chg 
IF(sub)  retap==retafK:hg 
ELSE 

IF(plus)retap=Tetap4-0.01 
IF(sub)  retap=^etap-0.01 
ENDIF 
ratap’^etap 
IF(inverse)ainv=^etap 
Write(sti2,'(f4.2)')ratap 
can  settex^position(l,4€^) 
call  outtext(sti2) 

CASE($F5) 

IF(prosQ))then 
IF(plus)retalw=retalwH-chg 
IF(sub)  retalw=retalw-chg 
ELSE 

IF(phis)retalw=retalw+O.OI 
IF(sub)  retatw=«talw-O.Ol 
ENDIF 
nitalw=Tetalw 
Wnte(str2,‘(f4.2)')ratalw 
call  settexQx>$itton(I^^) 
call  outtext(str2) 
CASE($F6) 

IF(prostp)tfaen 
IF(pIiis)iett-fett+<hg 
lF(siib)  rett»7ett<hg 
ELSE 

IF(pliis)rett=TCtt+50 
IF(8Ub)  rrtt*Tett*50 
ENDIF 
ratt*rett 

Write<strl,'(f5.1)')ratt 
call  settextposition(  1,704) 
caQ  outtext(strI) 
CASE(SCAP_X4x) 
IF(plus)ixdum=ixdum+ 1 
IF(sub)  bcdum^xdum’l 
Write(str4,'(i3)')ixdum 
call  scttextposition(2,224) 
call  outtext(str4) 
CASE($CAP_D,$d) 
IF(phis)i<ldunHdduEn+l 
IF($ub)  idduEit^ddum- 1 
Wnte(str,'(i2)')iddum 
can  settexQx>sition(2,104) 
can  outtext(str) 
CASE($ALT_R) 
IF(jiotsa)then 
sa^.true. 

ELSE 

sa=.&lse. 

ENDIF 

CASE($CAP_A,$a) 
y2ina}^dat(cuipos) 
doagain  =.tnie. 
done=.tiue. 
CASE($CAP_T,$t) 
IF(jiot.twoslopc)then 
twoslope=.tnie. 

ELSE 

twoslope=.&lse. 

ENDIF 

CASE<$CAP_B,$b) 
IF(twosIope)then 
IF(pros^)tiien 
IFO>Ius)diime‘»duine^hg 
IF(sub)  dume»dume-chg 
ELSE 

IF(plus)dume=duinfrH).01 
IF(sub)  diiine=duine-0.01 
ENDIF 
al2s=‘dume 
str2=^q)2-’ 

can  settex^position(23^4) 


caU  outtext(str2) 

Write(str2.'(f4.2)')al2s 
can  settextposition(2,434) 
caU  outtext(str2) 

ENDIF 

CASE(  $CAP_I,$i) 
mverse=.true. 

CASE($CAP_N3n) 

IF(plus)SSDeg=SSDegfI 
IF(sub)  SSDeg=SSDeg-l 
IF(SSDeg.LT.l)SSDeg=I 
lF(SSDeg.Grr.«5)SSDeg=6 
str6='Spm  Degeneracy 
caU  cieariine(30,25) 
can  settextposition(30,274) 
caU  outtext(sti6) 

Write(str;(i2)’)SSDeg 
caU  settextposition(30,43,$) 
can  outtext(stT) 

CASE($CAP_S,$s) 

IPL^.felse. 

inverse=.felse. 

CASE($CAP_C,$c) 

drawnocal=.tme. 

CASE($CAP_P,$p) 
nlcl=coll 
nlc2=col2 
nlc3=coD 
nlc4=col4 
nle==coI5 
doagain -.Inie. 
done=.true. 

CASE($F9)  I  big  step  for  temp  (100) 

prostp^.false. 

CASE($F10) 
doagain  ».tiue. 
done».tiue. 

CASE($ESC,$CAP_Q,$q) 
done  *  .troe. 

CASE($F7) 

10jininus.gt0)jitunus«jininus*l 

CASE($F8) 

IfljpcntgtO)jpcnHpcnt*  1 

CASE(  SEQUAL,  SPLUS)  Istep  RET  display  ri^t 

ro 

jininus«;iminu5+I 

Dok=l,1501 

8tpx(k>*0. 

END  DO 
Do  k°^jininu8,150I 

rt+i 

stpx(j)=yfl(k) 

END  DO 
jphis=3 
jpcnHininus 
inoveret=.tnie. 
caUie&esh 
moveret^.folse. 
caUietlabel 

CASE<$MINUS,SUNDRLIN)  Istep  RET  display  left 
jpcnb^pcnt+1 
j=0 

Dok=l,1501 

stpx(kH). 

END  DO 
Do  iHpc*tt,I50l 

j=d+i 

5^x(k)=yft(j) 

END  DO 
jminus=jpcnt 
jplus=150l 
rooverct=.tnie. 
caU  refresh 
moveret=.felse. 
caUretlabel 
CASE  DEFAULT 
END  SELECT 
END  DO 

lF(Doagain)goto  100 
Drawnocal^.ialse. 
nlcl^stol 
nlc2=sto2 
nlc3=sto3 
nlc4^o4 
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ntc=sto5 

RETURN 

END 

SUBROimNE  RETLABEL 


*  Hus  routine  places  labels  at  top  of  RET  plot 


Include  TGRAPHED* 

Include  ’DISPLAY.DAT 

INTEGER*2  k(Uoc,dumniy 

REAL*4  rattmp/atc^tal^tap^talw^tt 

CHARACTER  Menu3*78,Menu4*78^tr*2^trl*5^tr2*4^tr4*3 

CHARACTER  str3*6^tr5*23 

COMMON  /RET_LAB/  rattmp^tc^taljatap,ratahv^tt,kx4^ 
RECORD  /rccoord/ 
duniniy==settextcolor(  1 4) 

Menu3  =  ’D-STATE  X-STATE  V/ 

+  'W-WriteFile  FIO-RUN  ’ 

Menu4  =  'Fl-Temp  F2-C  F3-AL  F4-AP  V/ 

+  '  F5-LW  F6-TIME  ' 

IF(mverse)then 
str5  = '  Inverse  Power  Fif 
ELSE 

str5  = '  Statistical  Power  Fit  ‘ 

ENDIF 

call  settex4)osition(29,19^) 
call  outtext  (str5) 
call  inessg(menu4, 1 ) 
call  messg(menu3,2) 

Wiite(strl  ,'(f5.  l)')rattmp 
call  settextposition(l,10^) 
call  outtext($trl) 

Write(str3,'(f6.3)')ratc 
call  settextposition(  1 ,2 1 
call  outtext(str3) 

Write(str3.'(fiJ.2)')ratal 
call  s«ttextposition(133^) 
call  outtext(stT3) 

Wiite(str2,'(f4.2)')fatap 
call  settextposition(  1 ,46^) 
call  outtext($tr2) 

Wiite(str2,'(f4.2)')ratalw 
call  settextposition(  1 
call  outtex^str2) 

Write(stri;(5.1)’)ratt 
call  $ettextposition(l,70^) 
call  outtext(strl) 

Wiite(str,'02)')kd 
call  settextposition(2,10;s) 
call  outtext($tr) 

Wiite(str4,'(i3)')toc 
can  settex^position(2^2^) 
call  outtext(str4) 

Return 

End 

SUBROUTINE  RETSIMCids4xsjlvl,blin,first^v,begin,endjte^) 


Ibis  routine  simulates  RET  using  statistical  power  gap  * 


implicit  real*8(a'h;oz) 
integer  yMiajjrjpJlvljcountJl,SSD^ 
int^er*2  idsjxs^ddumjxdunvstep 
int^er*4  i01ow40hi411ow41hi 
real*4  scalepcfit,yfit^tep 

dimension  an(3),ak(200)^200)pt(200),yfit(3005)^t(3005) 
dimension  xteim(45),dtemi(44)^bconst(45),dbconst(40) 
dimension  }q)os(l  10Xypos(l  10)pctemp(100),ztemp(100) 
logical  fiist^onceJPUtwoslope^ytnid^ 

Common  /RET_SIM/  xfit,yfiUdduiiUxdumpq>os,ypos,IPL,SSDeg,scale 

Common  /PAR_SIM/  rettmp/etc,retal,retap  j^w,rett,aI2s,two8lope 

Common /RET  OUT/  rotranajotranbjotranc/otrandjotrane^tr^ 

data(xtermCi)>i0,42)/4129.774,4316.736,4502.257,4686.322, 

c4868.917,5050.024^229.627^7.710, 5584.255,5729.243, 5932.657, 

c6104.475,6274.679,6443.247,6610.156,6775.385,6938.908,7100.702, 

c7260.740,7418.996,7575.441,7730.048,7882.785/ 

data(xbconstC0>=20,42)/0.0348628,0.0347295,0.0345948,0.0344590, 

cO.0343218,0.0341832,0.0340433,0.0339018,0.0337589,0.0336143, 

c0.0334680,0.033200,0.0331701,0.0330182,0.0328642,0.032708l, 

c0.0325496,0.0323887,0.0322252,0.0320589,0.03I8898,0.0317176, 

cO.0315423/ 

data(dbconst(i)>=4,40y0.020516,0.020472,0.020427,0.020382, 

cO.020337,0.020292,0.020246,0.020201,0.020155,0.020110,0.020064, 


c0.020018,0.019972,0.019925,0.019879,0.0i9833,0.019786,0.019739, 

c0.019693,0.019646,0.019599,0.019552,0.019505,0.019458,0.019410. 

cO.019363,0.019316,0.019268,0.019221,0.019173,0.019126,0.019078, 

cO.019030,0.018983,0.018935,0.018887,0.018840/ 

hybrid=.iyse. 

DOjp=l,ids 

TE=41026.116 

YI0=95.11746327 

Y20^0.111495227 

Y30=^5.792874546e-4 

Y40=M.205281828e-6 

Y50=-1.408244378e-8 

Y60“2.68736882e-ll 

Y7D=-2.3114805e-14 

vp^ds+0.5 

vl=vp 

v2=vp”2 

v3=vp**3 

v4=vp**4 

v5=vp**5 

v6=vp**6 

v7==vp**7 

dtenn(ids)=TE+Y10»vl+Y20*v2+Y30*v3+Y40*v4+Y50*v5^-Y60*v6+Y70*v7 
END  DO 
IF(fiist)then 
tmp=rotrana 
c=rotianb 
al=rotiane 
ap^tiand 
alw  =  rotiane 
t=Totranf 

igtonce=.true. 

ELSE 

ids=iddum 

ixs=ixdum 

tmp^ettmp 

o=retc 

al=Teta] 

ap=retap 

alw=fetalw 

t=Tett 

igtonce=.&lse. 

ENDIF 

OPEN(unit=57,file=Yatejet',st8tus=^infcnown') 

OPEN(unit*51,file^otsim.dat',st8tus=^lnknown') 

iOlowm 

i0hi=98 

illow*=l 

ilhi=99 

bu=Hlbcon5t(ids) 
bHcbconst(ix5) 
sig^eim(ids)-xtenDOxs) 
iHi'2*int(ji/2)  !ii=0  or  1 

IF(ii.eq.O)dien 
wiite(57,*)i01ow40hi 
Else 

wiite(57,*)illow41hi 

ENDIF 

write(57,*)'  J  inital:  'jM 

wiite(57,*)'  J  rate’ 

jHM 

do20j=l,50 

j}=n+2*0-l)  ! Even  Ddta(J)  selection  rule 

if(ij.eq.j^)  dien 
IF(twodope)tiien 
8ptcmp=ap 
ep=»Bl25 
IFaPL)then 
aintemp^ainv 
ainv=al2s 
ENDIF 
ENDIF 
goto  20 
ENDIF 

an(lHj 

an(2Hi 

an(3)=al 

de^bs(ij*(ij+l)-ji*(it+-l))  !E/B=abs(ij*(ij+l>ji*(ji^'l)) 

do  30 1=1,2 

do301p4+13 

IF(an®  Jtan(k))  then 

temp=an(i) 

an(i)=anOc)  !nl>n2>n3 


30 


20 


8n(k)=temp 

endif 

continue 

a^h^an(2)+an(3)-an(l) 
if(alpha.lt0.0)  ai)ha=0.0 

ani=((2.*^2>+-l.)*(2-*an(3>fl>alpha*(alpha+l.)y(2*ji+l.) 
[spin  d^eneracy 

JHi 

iflijJe.jOjHj 

an<K2.*jl+l.y(2.*jt+-l.)  Ispin  degeneracy  [m|=0 

IF(SSDeg.eq.l)aiM 

IF(SSE>eg.eq.2)anl»ano 

IF(SSDeg.eq.3)anl=aJl 

IF(SSD^.eq.4)antranr 

IF(SSD^.eq.5)then 

hybrid=.true. 

anl=^o 


ENDIF 

lF(SSD^.eq.6)hybrid=.£alse. 
ak(j)=(c*aniy(de**ap)  (statistical  power  fit 

IFOPL)akO')=anl/(DE**ainv)  [inverse  power  fit 
IFiybrid)ak(j)=(t^*c*exp(-al*0.0001*de)yde'**^  [hybrid  of  power  and 
continue  I  eTqxmential  gap  law 

ak(int(ii/2>flH).0  [rateofJi=0. 

tl=0. 


Doi=l,50 

tl==tl+ak(i)  [Sum  individual  rate  constants 

END  DO 

DOj=l^ 

ij=!i+2*(j'l)  [Even  Delta(J)  selection  nile 

write(57,*)jJ,ak(j),al^'ytl 
END  IK) 

2i=e>qp(-tl*t) 

zl*exp(-rte*t) 

zimt*zl/(l-zl)*tl 

write(57,*)'Intensity  of  J  initial  ';zinit 
IF(igtonce)Open(dO,fil^simpos.sim'^tus“'unknown') 
OiKm(61^e=^rate.sim'^tatus=^unknown') 

DOi»l^ 

jp>^2*0-l)  [Honl>LondonS(P>=J;  S(R)“J+1 

z(iXakCiytl)*(l*2i)*jp  !P-branch  intensity 
^i>*^*^p-l)*bu*jp*(jP+l)*W  [P-bianch  position 
xposa)“le7/(xa>+sig)*2 
lfl;igtoncc)wiite(60,*)'P' jp,3q)os(t),  1  e7/xposCi) 
yposOXlin*0.95  [ypos-position  marker 

i^.eq.ji)ypos(I>=blm*0.75 
END  DO 

zCmt(ji/2)+  l)=zinit*scale  [P-branch  initial 

DOi=l,50 

ENDDO 


DOi=l,50 

ji*^2*6-l) 

z(5(HiHakCiytl)*(l-a^*ji+l  [R-branch  intensity 
x(5(HiXjt+l)*(jr+-2)*bu-jr*(ji+l)*bl  [R-branch  position 
jqx)s(5(Hi>=lc7/(x(5^>*'Si^*2 
Ifl;rgtonce)wiite(60,*)'R' Jr,?qx)s(50+-i),  1  e7/xpos(5(H-0 
ypos(5(HiXlui*0-975  [ypos-position  mariter 

ifljr.eq.ji)ypos(50+i)“blin*0.775 
ENDDO 

z(51+in^2)Xinit*scale  [R-branch  initial 

ama?^le8 


amin»le8 


jcountm 

wiite(61,*)'starf,b^in,’  end',end 
IF(IPL)wiite(61,*)'inver5e',ainv/  Spin  Degeneracy',SSDeg 
IF(twoslope.and.IPL)wiite(61,*)’inveisetwo  '^temp 
IF(jiotIPL)then 

wiite(61,*)'Spin  Degeneracy  ',SSD^'  a^ha',ap 
write(61,*)' total  rate  ',tl,' C',C 
write(61,*)'  lambda(spin) 
IF(twoslope)wiite(61,*)'slopetwo  '^ptemp 
ENDIF 
Do70i=l,I00 
xcin=(x(XH-si^2 
wiite(61,*)xcm,'  rate-  '^) 
if((xcm.ge.end).and.(xcmje.b^in))then 
jcount=jcount+l 
xtemptjcountXc® 
zteinpOcount)=z(i) 

Elseifi;sa)then 

jcount=;jcount+l 

xtemp(icomit>*xCi) 

ztemp0count>*2(i) 


70  ENDIF 

DOj=ljcount 

x(j)=xtemp(j) 

ajXtem^) 

ENDDO 
Dor=lJcount 
ifi;x(i).gt.amax)  amax^(0 
if  (x(i).lt.amin)  amin=x(i) 

ENDDO 

step=1501. 

IF(sa)step=3001. 
xst=(amax-amin+alwystep 
x0=amin-alw/2. 
istep=1500 
IF(sa)istep=3001 
do  80  i=0^tep 
xx=x(>+i*xst 
yy=blin 

do  90  j=l  Jcount 

iQ;abs(x(j)*xx).gt.(3*alw))  goto  90 
yy=yy+2(j)*(alw/2)*»2/((xx-x0))**2-KaIw/2)**2) 
90  continue 

xx=le7/(sigfxx) 

IF(sa)write(5 1  ,*)xx,yy 
yfit(i+l)=yy 
xfit(i+l)=xx*2 
80  continue 
rettmp=tmp 
reto=c 

IF(twosIope)ap=aptemp 

IF(twosIope)^v=aintemp 

retal=al 

retap=ap 

letalw^elw 

ret^=t 

close(61) 

close(51) 

close(57) 

RETURN 

END 

SUBROUTINE  AREA  (X,YJ^FrS,Ntenns»Retarea) 


Ihis  routine  int^rates  the  area  beneath  a  set  of  data  points 
Bevington  "Data  Reduction  and  Error  Analysis  for  tte  Physdal 
Sciences"  McGraw-Hill  (1969)  p.  273. 


implicit  real*8(a'h,0'Z) 

Dimension  X(25)»Y(25) 

IF  (Ntenns.gt4)Nteniis=M 
11  sunH). 

If  (NPTS  -  Nteims)  21, 21, 13 
13  Neven  =2*(Nterms/2) 

Idelta  =  Nterms/2-l 
IF  (Nteims  -  Neven)  31, 31, 51 
21  X1=X(1) 

X2=X(NPTS) 

23  CallINTEG(X,YJ^PTS,l,Xl,X2,SUM) 
GOTO  71 
31  X1=X(1) 

J=Nteims-IDelta 

X2=X(J) 

CaU  INTEG  pC,YJTORMS,l,Xl,X2,SUM) 

U=NPTS-NTERMS+1 

J=Il+IDelta 

X!=X(J) 

X2=X(npts) 

39  CaUlnteg(X,Y,NTERMS41,Xl,X2,SUM) 
IFai-2)7l,7I,41 
41  IMAX=I1-1 
Do  46  I*2,IMAX 
J*I+IDELTA 
X1=X(J) 

X(2>»X(J+1) 

46  CallIntcg(X,Y,NTERMS,I,Xl,X2,SUM) 
Goto  71 
51  Xi=X(l) 

J=Ntcims-IDelta 

X2=(X(J)+X(J-l)y2. 

CaU  Integ  (X,Y,Ntenns,l,Xl,X2,SUM) 

I1=NFTS-NTERMS+1 

Ml+IDelta 

xi=(x(j>fx(j+i)y2. 

X2=X(NPTS) 
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59  CaniNTEG(X,Y,NTERMS41^1,X2,SUM) 

IFai-2)71,71,61 

61  IMAX=I1-1 
Do  66  I=2,IMAX 
J=I+IDelta 
Xl=(X(J+l>+X(J))/2. 

X2KX(J+2)+X(J+l))/2. 

66  CaUINTEG(X,Y,NTERMS4^1^,SUM) 

71  Retarea^Sum 
Return 
End 

SUBROUTINE  INTEG(X,Y^teiins41,Xl,X2,SUM) 

» .  . . — * 

•  This  routine  int^iates  tiie  area  beneath  two  data  points  • 

•  Bevington  "Data  Reduction  and  Error  Analysis  for  the  Physcial  • 

•  Sciences"  McGraw-Hill  (1969)  p.  274.  * 

» _  - _ _• 

implicit  real*8(a-h,o-z) 

Dimension  X(25),Y(25),Airay(25^5) 

11  Do  17  J=lJ^tenns 
I«J+I1-1 

Deltax-X(I>Xai) 

XJK=1. 

Do  17K=l,Nteims 
Aiiay(J^>=XJK 
17  XJK=XJK*Deltax 
21  Can  Matxnv  (array, Kterms^t) 

1F(DET)31,2331 
23  IMID=Il+Ntcfms/2 

Sum=Suin+Y(IMID)’(X2-Xl) 

GOTO  40 
31  DXl=Xl-Xai) 

DX2=X2-Xai) 

33  Do39J»l,NTERMS 

A^. 

Do37K=l,Ntenns 
37  A»A+Y(I)*ARRAY(JJC) 

Denom^J 

39  Sum=Sum+(A/Denom)*(DX2**J-DXl»»J) 

40  Return 
END 

SUBROUTINE  MATTNY  (Airay,Norder J)Et) 

_ _ 

•  'This  routine  int^rates  die  area  beneadi  two  data  points  * 

•  Bevington  "Data  Reduction  and  Error  Analysis  for  the  Physcial  • 

•  Sciences’ McGiaw-Hifl  (1969)  p.  302.  • 

_ _ .• 

implicit  real*8(a-h,o-z) 

Dimension  Aiiay(25,25),  IK(25),  JK(25) 

10  DET=1. 

11  Dol00K»l,Norder 
AMAX-0. 

21  Do30I=K,Norder 
Do30J=K,Norder 

23  1F(ABS(AMAX)-ABS(ARRAY(U)))24,2430 

24  AMAX=ARRAY(I,J) 

IK(K)=I 

JK(K)=J 

30  Continue 

•  Interchange  rows  and  cohunns  to  put  amax  in  array  Oc^t) 

31  ia:AMAX)4U2,41 

32  Det=0. 

Goto  140 

41  I=IK(K) 

IFa-K)2Ul,43 

43  Do50J=l,Norder 
Save«AiTay(K,J) 

Airay(K^Array(y) 

50  AirayCU^Save 

51  J=JK(K) 

1F(J-K)21,61,53 

53  DO60I=l,NORDER 
SAVE=ARRAY(UC) 

ARRAY(UC)=ARRAY(U) 

60  ARRAY(U)=-SAVE 

61  Do70I=l,NORDER 
IF  0-K)  63,70,63 

63  ARRAY(UC)=-ARRAY(UC)/AMAX 

70  CONTINUE 

71  D080I»1J40RDER 


DO80J=l,NORDER 

IFa-K)74,80,74 

74  IF(J-K)75, 80,75 

75  ARRAYa,J>=ARRAYaJHARRAYa4C)*ARRAY(K,J) 

80  Continue 

81  Do90J=l,NORDER 
IF  (J-K)83,90,83 

83  ARRAV(K,J)»ARRAY(K,J)/AMAX 
90  Continue 
Array(K,K>=l  yAlvIAX 

100  Det=Det*AMax 

101  DoI30L=l,Norder 
K»Norder-L+l 
J=IIC(K) 

IF(J-K)1 11,1 11,105 
105  Doll0I=l,Norder 
Save=Array(IJC) 

Ajray(I,K)^ArrayG,J) 

110  Aiiay(IJ>=Save 

111  I=J1C(K) 

IF(I-1C)130,130,113 

113  Do  120  J-l,Norder 
Save=Array(KJ) 

Airay(K,J)^Array(I,J) 

120  Aira><l,J)=Save 
130  Continue 
140  Return 
END 


SUBROUTINE  LAMBDA(new,gdcaUuhiam,filnm) 

* 

*  Lambda  reads  files  widi  the  format  of  die  * 

*  oqieiimental  data  files  found  in  the  lab  of  M.C.  Heaven  *  . 

■  .  . * 

Implicit  Real*4  (a-h,o»z) 

Real*4  XX(1024),YY(1024).YC(1024) 

Character  Filnm*12,tmpname»I24ulnam*12 

Character*3  ext 

Char8Cter*7  GD 

Character*(*)  New 

Logical  First,GDCAL 

first=.true. 

gdcal=.tTue. 

zqj*^.0 

92  WRITE(*,*)'Enter  name  of  file  to  be  read:  ’ 
READ(*30)F1LNM 
30  FORMAT(A12) 

OPEN(224?lLE*FILNMJRR-90,CTATUS=^OLiy) 
goto  91 

90  WRnE(V)UNABLE  TO  OPEN  THIS  FILE...TRY  AGAIN* 

goto  92 

91  continue 

50  READ(2233)NUME,XMAX,XMIN,YMAX,YMIN4FILE 

33  FORMATa4,2X,4(F8.2,lX)41) 

IFanLE.EQ.l)GOT042 

READ(2234XXX(I),YY(DJ=1JJUME) 

34  F0RMAT(4(F8.2,1XJ^.2,1X)) 

GO  TO  43 

42  CONTINUE 
IF(GDCAL)then 

READ(2235,ERR=31XXX(D,YY(I),YC(I)4=IJ>IUME) 

ELSE 

READ(2236,ERR»31XXX(IXYY(0,GD4=1,NUME) 

ENDIF 
GOTO  43 

3!  GDCAL*.&lse. 

Rewind  22 
GOTO  50 

35  F0RMAT(3(F7.1,1X,F7.1,1X,F7.1,1X)) 

36  F0RMAT(3<F7.1,1XJ7.1,1X,A7,1X)) 

43  CLOSE(22,srATUS=<KEEP0 
STP=<XMAX-XMINy(NUME-l) 

Write(*,») 

Wiite(*,*)*  This  ixogram  rfT  using  the  sta 

+tistical' 

Write(**)'  power  g^  law.  Iheixogam  requires  a  ca 

+libra^' 

Write(V)'  datafile.  The  program  will  generate  a 

+newffle' 

Wiite(*,*y  called  *sim  which  contains  die  simulati 

+on-' 

Wiite(V)’  and  •jet  which  contains  rate  constonte' 
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Write(*,*) 

Write(*,*)’  IMPORTANT:  Input  new  file  name  without 
+an  extension.' 

Write(»,*)'  e.g.  input  SEP0727A.DAT  as 

+  SEP0727A' 

Write(»,*) 

WRITE(*  •)’Enter  NEW  FILENAME: ' 

READ(*30)NEW 

Tmpnaine=New 

len^  =  Len_Tiim(  tmpname  ) 

pos  =  INDEX(tnipname,'.V&lse.) 

cxt='daf 

fiibam  =  tinpnaine(l  iengfiiy/'.V/ext 
OPEN(umt=®9,file=fiilnain^tatus=UN  KNOWN*) 
D081I=1,NUME 
XX(I)=XMAX-STP*a-l) 

IF(fct)then 

WRrrE(9,*)NUME,XMAX^IN,YMAX 

first».&lse. 

ENDIF 

IF(GDCAL)then 

WRrre(9*)XX(I).YY(D,YC(D 

Else 

WRITE(9,*)XX(I).YY(I)^p 

ENDIF 

81  CONTINUE 
48  CONTINUE 
CLOSE(UNIT=9) 

CL0SE(UNrr=22) 

RETURN 

END 

SUBROUTINE  ADDEXT(name,ext) 

•  .  ■  • 

*  This  routine  will  add  an  extention  onto  a  file  name.  * 

*  _ _  « 

INCLUDE  'display.daf 
Int^er  length 
Character’s  ext 

Character  tmpname*12,  name*12 
tmpname  -  name 
( get  the  length  of  the  name 
lengdi »  Lenjrrim(  tmpname ) 

I  find  occurance  of.  starting  from  end  of  filename 
pos  INDEX(tmpname,'.',.&lse.) 

!f(  pos  Jie.  0 )  lei^th  -  pos  •  1  I  Peiiod  was  found 

fulnam  -  tmpname(l  laigthy/'.'//ext 

END 

SStorage;  2 
Slnchide:  TGRAPH.FT 

SUBROUTINE  PEAKLOC 

m  _  * 

*  This  subroutine  locates  pealcs  by  stepping  three  points  ’ 

*  throu^  file  data  file  using  file  difierence  defined  in  * 

•  file  Dat_File  • 

•  _ * 

Include 'FGRAPH.FD' 

Include  'COLORS.H' 

Include 'ROW.COL.H' 

Include  T)ISPLAY.DAT 
Include 'KEYCODE.H' 

Int^er  jcnt,peakcur(1524),peaktemp(1524Xicor 

Int^er  bead4md,tail,qx>s,opt 

Int^er  jpos,temp(500Xstoi<200^),tmp(9) 

lnt^er*2  dummy,duinmy2,y4 

Real*4  yiq>,ydown 

Character  Menu2*80 

Logical  fiist,done 

RECORD  /wxycoord/  wxy 

D(me».&lse. 

jcnt^l  [Locate  fiie  peaks  by  stepping 

Do  mid»:3,nume*2  Ifiiree  peaks  separated  by  two 
head»7nidf2  (cursor  positions 

tail=?nid-2 

yiq>=ydat(head)-ydat(mid) 

ydoiwp=ydat(inid>’ydat(tail) 

IF((ab$(yi9).gtydelt).and.(ydown.gtydelt))fiien 

IFCyiqjJtO^en 

jcnt^cnt^-l 

peakcuitjcnty^d 

ENDIF 

ENDIF 

IF(ydown.gt.ydelt)tiien 


IF(yupJt.O)then 

yupdum=ydat(head+l)-ydat(head) 
IF(yupdum.lt.O)then 
ENDIF 
ENDIF 
ENDIF 
END  DO 
First*.false. 
ipos=0 
E>oj=lJcnt 

IF(peakcuHj).GT.O)then  [Sort  the  peaks  by 

IF(jiot.first)then  [removing  copies  and  zeros 

ipos=ipos+l  [Sort  - 1 

peakt^p(ipos)»peakcur(j) 
fiist=.true. 

ENDIF 

lF(first)then 

IF(peaktemp(ipos).ne.peakcur(j))then 

ipos=ipos+l 

peaktemp(ipos>‘^>eakcui()) 

ENDIF 
ENDIF 
ENDIF 
End  Do 
Doip=14pos 
temp(k)«peaktemp(k) 

End  DO 
icor=5 

70  Continue 
Dok»l,q)OS 
temp(k)=T)eaklemp<k) 

End  DO 

(Use  correct  &ctor  to  find  max  peaks 
(looking  forward 
Doj=l;ipos 
stor(j,l)=tempO) 
kk=2 

Do  1f>3+1  j+icor 
IF(temp(k)-tcmp(j)ieicor)then 
kk«kk+l 

stor(|Jkk>»temp(k) 

ENDIF 
END  DO 
stor(j,2Htk 
END  DO 
DOj*Upos 
inx=st^,2) 
inx2^nx-2 
IFQnx2.eq.0)goto  73 
IF0nx2.eq.l)then 

IF(YDAT(stor(j,3)).gtYDAT(5tor(j.l)))then 

5tor(j,l)=stor(j3) 

goto  73 
ENDIF 
ENDIF 
Dok“34nx 
tmp(k)=stor(i4t) 

END  DO 
DOij=Tnx,4,-l 

lFCYDAT(tmp(ij)).gt.YDAT(tmp(ij-l)))then 
tmp(ij'I)=topQD 
ENDIF 
END  DO 

IFCYDAT(tmp(3)).gt.YDAT(stor(j,l)))stor(j,l)=tmp(3) 

73  Continue 
END  DO 
(looking  backward 

Doj=qx>s^»-l 

stoi(ii)=0 

IF(stoitj,  l)’Stor(j- 1, 1 )  Jeicor)then 
IF(YDAT(stor(j-l.l)).gtYDAT(stor(j,l)))then 
stor(j,2)“stor(i,l) 
stor(j,l)=stor(j-I,I) 

ENDIF 
ENDIF 
END  DO 
dojc»14pos 
temp(jc)=stor(jc,l) 
end  do 
first=.true. 
jpos=0 
Doj^Upos 
IF(first)then 

IF((temp(j).GT.O).and.(YDAT(terap(j)).GT.peakmin))then 
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jpos=^jpos+l 

peakcur(jpos)»teinp(i) 

first=.&^. 

ENDIF 

ELSEIF(jiotfiist)then 

IF(peakcui(jpos)jie.temp(j))then 

IF(YDAT(tem^)).GT.peijnin)then 

jpos^pos+1 

p^ci^pos)»temp(i) 

ENDIF 
ENDIF 
ENDIF 
END  DO 

80  Continue 

DOj=lJpos 

IF((peakcui(j)Jejiuine-2).and.(peakcur(j).ge.2))then 
Call  gau^(peakcui(j)) 
ytempb(j)=yarea 
xcuib(j)=pe^ur(j) 
dummy  -  setcoloi<nlcl) 

Call  movcto_w(xr(peakcur(j)),yinin,wxy) 
y4=yinin+50 

dunOTy2  =  lineto_w(xr(peakcui<j)),y4) 

ENDIF 
END  DO 

Menu2  = '  a^add  one  point  d*deiete  point  w-write  tile  V/ 

+  '  r-retiesh  screen  ESC-Quit  ' 

Call  messg(Menu2, 2) 
call  cuisor(cuipos,l) 

Do  While(  Jiot.  done ) 

Call  checkk(  opt ) 

SELECT  CASE  (opt) 

CASE(  SCAP^X,  $x )  !  delete  one  point 

DOj=ljpos 

IF(cuipos.eq.xcuib(j))tiien 

ytempb(cuipos)=^ 

xcurb(curpos)=0 

peakcmtj)^ 

ENDIF 
END  DO 

CASE($CAP_A,$a)  (add  one  point 
jpos=jpos+l 
CaUgauss(cuipos) 
ytempb(jpos>=yarea 
xcuib(jpos>=curpos 
peakcur(ipos>K;uipos 

CASE($CAP_W,$w,$s,$RETURN)  (write file 
call  addext(filnam,'mel') 

OPEN(51^LE=fulnam,STA'IUS=T;NKNOWN') 

i=0 

Doj=ljpos 

IF(xcurbO).GT.O)then 

i=4H 

IF(cal_done)then 

IF(au&et)tiien 

Write(51,*)xofla;xcurbCi)),ydat(xcuib(0),ytempb(i) 

Else 

Write(5 1  ,*)cabc(xcurbCO),ydat(xcuibCi)),ytempbCO 
ENDIF 
Else 

Write(5 1  ,*)xda^xcurt)(J)),ydat(xcurb®),ytcrapb(i) 
ENDIF 
ENDIF 
END  DO 
CASE($ONE) 
icoi«l 
call  refresh 
call  messg(menu2»2) 
goto  70 
CASE($TWO) 
icor=2 
caUrefiesh 
can  messg(menu2^) 
goto  70 

CASE($THREE) 
icor“3 
caU  refresh 
can  messg(menu2^) 
goto  70 

CASE($FOUR) 

icoi«4 

caUrefiesh 

can  messg(menu2^)  « 

goto  70 


CASE($F1VE) 
icor=5 
caUrefiesh 
caU  messg(menu2,2) 
goto  70 
CASE($SIX) 
icor=6 
caUrefiesh 
caU  mes$g(menu2^) 
goto  70 

CASE($SEVEN) 
icor=7 
caUrefiesh 
caU  messg(menu2»2) 
goto  70 

CASE($EIGHT) 
icoi=8 
caUrefiesh 
caU  messg(menu2^) 
goto  70 
CASE($NINE) 
icor=9 
caUrefiesh 


caU  mes5g(menu2^2) 
goto  70 

CASE($F10)  !  delete  aU 

jpos=0 
goto  80 
CASE($F9) 

CASE($LFTAROW»$COMMA^LT)  !  move  Cursor  left 
CaU  Curs_Lft(cuipo5) 

CASE(SRGTAROW^PERIOD»$GT)  ( move  Cursor  right 
CaU  Curs_Rgt(curpos) 


CASE(  $CAP_H,$h) 
bbigstep=.true. 

CaU  Curs_Lft(cuipos) 
CASE(  SCAPJ,  $j ) 
bigstep^.true. 

CaU  Curs  Lft(curpos) 
CASECSCAP.UM) 
bbigstep=».tme. 

CaU  Curs  Rgt(cuipos) 
CASE(  $CAP_K,$k) 
bigstcp=.tnic. 

CaU  Curs_Rgt(curpos) 
CASE($r) 
caUrefiesh 
caU  messg(menu2^) 
CASE(  $ESC^AP_Q,$q) 
done  =  .true. 


I  move  Cursor  right 


I  move  Cursor  left 


( move  Cursor  left 


I  move  Cursor  right 


CASE  DEFAULT 
END  SELECT 
END  DO 
Close(53) 

Return 

End 


SUBROUTINE  MINMAXCa^amin^amax) 


*  this  routine  finds  file  min  and  max  in  a  Id  array  * 

•  routine  written  by  Herr  UdoSchnupf  • 


implicit  real*4  (a-h,o-z) 
dimension  a(n) 
amin=  l.e30 
amax=-l.e30 
do  10i=l^ 
amax=max(a(i),am8x) 
aniin»min(a(i),amin) 
10  continue 
return 
end 
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» _ * 

*  FILE:  C_Calls.for  * 

«  _ * 

SStorage: 2 

* 

*  This  file  contains  interfaces  and  functions  to  use  the  C  function 

*  calls  GETCH  and  KBHIT. 

* 

INTERFACE  TO  INTEGER»2  FUNCTION  getch  [C]  0 
end 

INTERFACE  TO  INTEGER*2  FUNCTION  kbhit  [C]  () 
end 

Subroutine  Checkkfnum) 

Integer  num 
Integer*2  getch 
num  =  getchO 
If(  num  .eq.  0 )  then 
num  =  getch()  +  128 
Endif 
Return 
END 

Subroutine  Key_Hit(num) 

Integer  num 
Integer*2  kbhh 
num  =  0 

If(  kbhit()  .ne.  0 )  num  =  I 
END 


KE  VCODE.H  -  ASCU  values  for  keyboard 


INTEGERJLFTAROW.$RC7rAROW4UPAROW^DWNAROW,$INSERT^DELETE 
INTEGER  SHOME,$END,$PAGEUP,SPAGEDWN,SFl,$F24F3^F4.$CrRL_R 
INTEGER  $F5.$F«.$F7^F84F94F10,$ESC.SALT_D,SALT_QMLT_R^T_X 
INTEGER  $RETURN^RO4ONE,nW0.$THREE 
INTEGER  SFOUR^nVE^SIXJSEVEN^EIGFIT^NINE 
INTEGER  JPLUS^EQUAL.$MINUS^UNDRLIN,$PERIOD^4LT,$COMMA 
INTEGER  SCAP_A>,$CAP_B.$b,$CAP_C,Jc,$CAP_D*I4CAP_E* 

INTEGER  $CAP_F^f;$CAP_G4g,$CAP_iaWCAP_I4i 
INTEGER  SCAP_J^AP_K3CAP_L41j,Jk41,$CAP_M*lu$CAP_NAl 
INTEGER  SCAP_0^4CAP_PJp,$CAP_Q,$q^AP_R4r4CAP_S,$s 

INTEGER  St,$CAP_T^CAP_W^w^AP_X4x,$CAP_Y4y 

PARAMETER($LFTAROW  =  203) 

PARAMETER($RGTAROW  =  205) 

PARAMETER($UPAROW  =  200) 

PARAMETER(SDWNAROW  =  208) 

PARAMETER(SINSERT  =  210) 

PARAMETER($DELETE  =  21 1) 

PARAMETER($HOME  =  199) 

PARAMETER($END  =  207) 

PARAMETER($PAGEUP  =  201) 

PARAMETER(SPAGEDWN  =  209) 

PARAMETER($RETURN  =  13) 

PARAMETER($PLUS  =  43) 

PARAMETER(SCOMMA  =  44) 

PARAMETER($MINUS  =  45) 

PARAMErER($PER10D  =  46) 

PARAMETER($ZERO  -  48) 

PARAMETER($ONE  =  49) 

PARAMETER($TWO  =  50) 

PARAMETER($THREE  =  51) 

PARAMETER($FOUR  =  52) 

PARAMETER($FIVE  =  53) 

PARAMETER($SIX  =  54) 

PARAMETERTSSEVEN  =  5S) 

PARAMETER($EIGHT  =  56) 

PARAMETER($NINE  =  57) 

PARAMETER($LT  =  60) 

PARAMETER($EQUAL  =  61) 

PARAMETER($GT  =  62) 


PARAMETER($F1  =  187) 

PARAMETER($F2  =  188) 

PARAMETER($F3  =  189) 

PARAMETER($F4  =  190) 

PARAMETER($F5  =  191) 

PARAMETER($F6  =  192) 

PARAMETER($F7  =  193) 

PARAMETER($F8  =  194) 

PARAMETER($F9  =  195) 

PARAMETER($F10  =  196) 

PARAMETER($ESC  =  27) 
PARAMETER(SALT_D  =  160) 
PARAMETER(SALT_Q  =  128) 
PARAMETER($ALT_R  =  147) 
PARAMETER(SALT_X  =  173) 
PARAMETER(SCAP_A  =  65) 
PARAMETER($CAP_B  =  66) 
PARAMETER($CAP_C  =  67) 
PARAMETER($CAP_D  =  68) 
PARAMETER($CAP_E  =  69) 
PARAMETER($CAP_F  =  70) 
PARAMETER($CAP_G  =  71) 
PARAMETER($CAP.H  =  72) 
PARAMETER($CAPJ  =  73) 
PARAMETER(JCAP_J  =  74) 
PARAMETER($CAP_K  =  75) 
PARAMETER($CAP_L  =  76) 
PARAMETER(SCAP_M  =  77) 
PARAMETER(SCAP_N  ■=  78) 
PARAMETER($CAP_0  =  79) 
PARAMETER($CAP_P  =  80) 
PARAMETER($CAP_Q  =  81) 
PARAMETER(SCAP_R  =  82) 
PARAMETER($CAP  S  =  83) 
PARAMETER(SCAP_T  =  84) 
PARAMETER($CAP  W  =  87) 
PARAMETER($CAP  X  =  88) 
PARAMETER($CAP_Y  =  89) 
PARAMETER($UNDRLIN  =  95) 
PARAMETER($a  -  97) 

PARAMETER(Sb  =  98) 

PARAMETER($c  =  99) 

PARAMETER($d  =  100) 

PARAMETER(Je  =  101) 

PARAMETER($f  =  102) 

PARAMETER($g  =  103) 

PARAMETER($h  =  104) 

PARAMETER($i  =  105) 

PARAMETER($j  =  106) 

PARAMETER($k  =  107) 

PARAMETERCSl  =  108) 

PARAMETER($in  =  109) 

PARAMETER($n  =  110) 

PARAMETERlSo  =111) 
PARAMETER($p  =  112) 

PARAMETERS  =  113) 

PARAMETER($r  -  114) 

PARAMFTER<$s  =  115) 

PARAMETER($t  =  116) 

PARAMETER($w  =  119) 

PARAMETER($x  =  120) 

PARAMETER($y  =  121) 

PARAMETER($CTRI,_R  =  18) 


*  ROW_COL.H 

*  Ttus  include  file  contuis  constants  for  row  and  column  positioiis 

*  during  data  review. 


INTEGER  LABEL_ROWMBEL_COL,NUM_COL,NUM_DATA_ROWS 
INTEGER  DATA_C01,BOR_START_ROW,MESSG_ROW1,MESSG_ROW2 
INTEGER  MESSG_COL,IC_COLjnJM_IC_ROWS,SEPJC_ROWS 
INTEGER  LFT_BOR_COLERROR_ROW,STARTDATAROW 
PARAMETER  (LABEL_ROW  =2  ) 

PARAMETER  (LABEL_COL  =2  ) 

PARAMETER  (NUM_COL  =80) 

PARAMETER  (STARTDATAROW  =5  ) 

PARAMETER  (  NUM_DATA_ROWS  =  17  ) 

PARAMETER  (DATA_COL  =2  ) 

PARAMETER  (  BOR_START_ROW  =  1  ) 

PARAMETER  (LFT_BOR_COL  =1  ) 

PARAMETER  (MESSG_ROWl  =1) 

PARAMETER  (MESSG_ROW2  =2) 
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PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


(MESSG.COL  -2) 
(ERROR.ROW  =25) 
(IC.COL  =22) 
(NUMJC_ROWS  =11) 
(SEPJC.ROWS  =14) 


Common /DX_guass/  ah,totJ^owss 
Parameter  (on  =  1) 

Parameter  (off=0) 

Parameter  (2ip  =  0.0000) 

Parameter  (PI  =  3.141592654) 


•  COLORS.H  • 

•  Tliis  file  contains  constant  declarations  used  to  set  the  colors  of  * 

•  text  and  graphics  output  to  the  screen.  * 

INTEGER»2  TEXT_CLR,GRAPH_BORDER,GRAPH_FILL,PLOT_CURSOR 
INTEGER*2  GRAPH_LINE,TEXr_ERR_CLR,GRPH_ERR_CLR 
INTEGER*2  BORDER,FILE_NAMEJDATA_PT 
INTEGER*4  TEXT_BK_CLR.GRPH_BK_CLR,MESSG_CLR 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


CrWIL_ZONE  =0  )  I  ANOTHER  DIM 
CrEXT_BK_CLR  =  1  )  !  BLUE 

(GRPH_BK_CLR  =$BLIIE)  !  BLUE 
(DATA_PT  =7  )  !  WHITE 

(GRAPH.HLL  =8  )  I  DARK  GRAY 
(nLE_NAME  =9  )  !  LIGHT  BLUE 

(MESSG_CLR  =10  )  (LIGHT GREEN 
CrEXT_CLR  =11  )  I  LIGHT  CYAN 
(GRPH_ERR_CLR  =  12  )  (  LIGHT  RED 
(PLOT_CURSOR  =  12  )  !  LIGHT  RED 

(BORDER  =13  )  (LIGHT MAGENTA 
(GRAPH.LINE  =14  )  (YELLOW 
(GRAPH_BORDER  =  15  )  !  LIGHT  WHITE 

(TEXT  ERR_CLR  =  28  )  I  BLINKING  LIGHT  RED 


DISPLAY.DAT 


Integer  xrange,on,o£CcuipositwofuimJlevel,SDeg4cnta,totJ(47) 
lnteger*2  inumq^band 

Integer*2  xl,yIpc2,y2,y3jUcl^c2^c3^o4^jplus 
Int^er*2  coll,col2,co]3,col4,col5 
Integer*2  x_rowp(l_col;x2_col,put_cur,curtemp(30) 
lnt^er*2  xcutb(500)^axx4iiaxy,dstatep(statejminus 
lnt^er*4  name 
Real  xdLCy<^ 

Real*4  xdat(1524),ydat(1524),zdat(1524),pop(47) 

Real*4  xmax.x[nin,yinax,ymin^ax,zmht^,ydelt 
Reai*4  xxmaxpoanin,yyznax,yymni,tmpi(47) 

Real*  4  olddelpccol(  1 50 1  ),ycoi(  1 50 1  ),peakmin 
Real*4  s^x(1501) 

Real*4  xft(1501),yft(150I)pq)s(110),yps(ll0) 

Real*8  xi(1024),yr(1024)^1024),ya(l024),yvar 
Real*8  xck(30),cal^l024),(^><1024)^^oflB[1024) 

Rcal*8  ytempb(500),XlVIEW,YlVIEW4»CALE,baselin^ 
Real*8  rottmp/otcjotaljotapjotaiw^otLPLyarea 
CHARACTER  filnam*12,fulnam*12,oldname*12 
Logical  caIib,ouL.igt,out_lft,caI_done,ye$caMu&eLnewfile 
Logical  pkhgh,bigstep,bbigstep,right,plotsim,distwo4odx 
Ix^cal  moveone^overet^ovetwo.drawnocaUnverse 
Logical  LORENTZ^owss 

Common  /dat_array/  xdat,ydat,zdatp(state,dstatejlevel 
CommOTi /dat_win/  xr,yr^,ya 

Common /dat_$pec/  numepanaxpanin,ymax,ymin^ax,zmin 

Common  /dat_integ/  baseiiivyarea,plotsim4odx^w 

Common /cursize/  xdi^ydif 

Common  Adewjo/  xl,yl^,y2,y3 

Common  curpos,ii^t,calib,bigstep,bbigstep 

Common  /curs_scal/  xrange,yvar 

Common /pref_col/  nlcl4tlc2^c3^c44itc 

Common /axis_lab/  x_rowpcl_col^_coI,put_cur 

Common /outrange/  out_Ift,out_igt 

Common /cal_pnts/  xcal,curtemp,drawnocal 

Common /cal_out/  cabt,caly,cal_done,au&etpcofi' 

Common /file.dir/  fiInam,fulnam,yescal^ewfile,oldname 
Ccmimon  /peak_find/  pkh^ydelt,olddel^curb,ytempb,peakmin 
Common /par_file/  xlview,ylview,zscale4naxx4naxy 
Common /plot_sim/  xft,yfUq>s,yps 
Common  /file_two/  xcol,ycoLdistwo4twonum4cnta 
Common  /file2_max/  xxmax,yyinax,yyininpcxmin 
Common  /file2_mov/  movetwo  jnoveone4noveret^h5xjplus  Jminus 
Common  /RET_par/  rottmp^oto/otaljotap^talw^tt^nverse 
Common /RETjxnt/  coll,col2,col3,coI4,col5,SD^ 

Common /DX^time/  ibandjnumq,pop,tmpr,LORENTZ 


D1SPLAY.REF 


Xi  VIEW.Yl  VIEW,  size  of  flte  orignal  window  in  percent  values  (real  values) 

85.,85 

ZSCALE  RESCALING  FACTOR  FOR  THE  REFERENCE  SPECTRUM  IN 
PERCENT  (real  value) 

30 

LINE  COLORS;  border,data,cal,sim,text  (int^er  values) 

12,15,12,11,14 

LINE  COLORS  (GRAPHICS  PRINT);  border,data,cal,siin,text  (integer  values) 
12,15,15,12,10 

SCALING  FACTORS  FOR  CURSOR;  X-SCALE  (integer  value),  Y-SCALE(real 
value) 

6,21.0000 

SCALING  FACTORS  FOR  X-axis  UbeL  row,col_start,col_stop 
29,4,71 

START  CURSOR(lnteger  value:0=left,l=muddle,2*Tight) 

2 

Gaussian  Laser  Line  Width(cm-1) 

0.09 

IUNIT(i-nm,  2-cm),ALW  (RET  SIMULATION) 

1,0.09 

ROTATIONAL  ENERGY  TRANSFER 

SIMULATION;TMP,C,LAMBDA,ALPHA,LINEWIDTH,DELAY 

301,0.2,0.0.9,0.08300 

INVERSE  POWER  RET  FTP;  SPIN  DEGENERACY  l=Nj  2=No  3=Njl  4=N1 
5=J(J+1) 

.tme.,1 

RELATIVE  STEADY  STATE  POPULATION  OF  VIB  EXCITED  IODINE 

1.5, !.2,1.0.1.2  (21-24 

1.5. !.2,1.0.l.2  (25-28 

03,0.9,0.9,1.2  (29-32 

2.5,1.23.0,4.2  133-36 

5.33.93.9.10.2  137-40 

3.9.6.6.4.23.3  (41-44 

2.83.3.1.3  (45-47 

I*  + 12  ROTATIONAL  TEMPERATURE  TEMPSIM(distribution  temperature) 

360370380380  (33-36 

310330310310  137-40 

310340330320  (41-44 

298370378  (45-47 

FIT  SIMULATION  WITH  LORENTZ,[GAUSSlAN,l/2sigma,mean  sample,(DXSIM)] 
.Ialse.,.true.,0.0002,80 


FCF.DAT 


Data  file  FCF.DAT  contains  numbers  only(  in  a  single  column  listing! 
Modified  in  its  appearance  to  5  (five)  columns  to  save  space 
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1.8758e-ll 

1.7034e-03 

9.9999e+04 

3.2752e-02 

5.6672e-04 

9.2388e-ll 

3.8282e-03 

2.2172e4)5 

2.1961e-02 

9.9999e+04 

4.3203e-10 

7.8994e-03 

7.1419e-05 

7.3296e-03 

6.6671e-03 

1.9194e-09 

1.4853e-02 

2.1280e-04 

2.7190e-06 

1.2401e-02 

8.1015e-09 

2.5205e-02 

5.8471e-04 

7.0555e-03 

1.9994e-02 

3.2480e-08 

3.8064e-02 

1.4753e-03 

2.0616e-02 

2.7252e-02 

1.2360e-07 

5.0136e-02 

3.3997e-03 

2.2981e-02 

3.0120e-02 

4.4706e-07 

5.5788e-02 

7.1038e-03 

9.5978e-03 

2.4950e-02 

1.5330e-06 

4.9572e-02 

1.3335e-02 

4.1339e-07 

1.2803e-02 

4.9863e-06 

9.9999e+04 

2.2195e-02 

1.0156e-02 

1.7773e-03 

1.5366e-05 

2.9952e-07 

3.2146e-02 

9.9999e+04 

1.6680e-03 

4.4814e-05 

1.1674e-06 

3.9375e-02 

1.0456e-03 

1.2448e-02 

1.2354e-04 

4.2645e-06 

3.8830e-02 

2.5248e-03 

2.0323e-02 

3.2156e-04 

1.4586e-05 

2.7918e-02 

5.4881e-03 

1.3497e-02 

7.8881e-04 

4.6632e-05 

1.1208e-02 

1.0637e-02 

1.3994e-03 

1.8200e-03 

1.3905e-04 

3.9236e-04 

1.8132e-02 

3.6654e-03 

3.9397e-03 

3.8569e-04 

5.3624e-03 

2.665  le-02 

1.6177e-02 

7.9777e-03 

9.9189e-04 

2.1367e-02 

3.2745e-02 

1.4623e-02 

9.9999e+04 

2.3548e-03 

2.9208e-02 

3.1879e-02 

1.5303e-03 

4.6503e-10 

5.1327e-03 

9.9999e+04 

2.2016e-02 

4.8916e-03 

2.1638e-09 

1.0203e-02 

6.8959e-05 

7.8190e-03 

9.9999e+04 

9.5312e-09 

1.8324e-02 

2.0760e-04 

4.3138e-05 

1.0399e-02 

3.9759e-08 

2.9357e-02 

5.7490e-04 

6.0997e-03 

1.7478e-02 

1.5700e-07 

4.1220e-02 

1.4590e4)3 

1.9172e-02 

2.4956e-02 

5.8662e-07 

4.9325e-02 

3.3732e-03 

2.2093e-02 

2.9181e-02 

2.0724e-06 

4.7989e-02 

7.053  le-03 

9.6062e-03 

2.6117e-02 

6.9169e-06 

3.4562e-02 

1.3206e-02 

5.0775e-06 

1.5364e-02 

2.1784e-05 

1.4336e-02 

2.1847e-02 

9.2506e-03 

3.4416e-03 

6.4644e-05 

9.9999e+04 

3.1301e-02 

2.0889e-02 

5.1060e-04 

1.8049e-04 

1.4958e-06 

3.7658e-02 

9.9999e+04 

9.4738e-03 

4.7307e-04 

5.4810e-06 

3.6080e-02 

2.1997e-03 

1.9064e-02 

1.1609e-03 

1.8748e-05 

2.465  le^2 

4.7188e-03 

1.5374e-02 

2.6600e-03 

5.9776e-05 

8.7110e-03 

9.3619e-03 

3.0143e-03 

5.6688e-03 

1.7723e-04 

4.8778e4)5 

1.6341e-02 

1.7326e-03 

1.1183e-02 

4.8716e-04 

6.8592e-03 

2.4620e-02 

1.3670e-02 

2.0304e-02 

1.2368e-03 

2.2038e-02 

3.1089e-02 

1.5824e-02 

3.3676e-02 

2.8869e-03 

2.6576e-02 

3.1284€-02 

3.2324e-03 

9.9999e+04 

6.1565e-03 

1.2950e-02 

2.2668e-02 

2.5660e-03 

5.7810e-09 

1.1899e-02 

9.9999e+04 

8.9436e4)3 

1.5254e-02 

2.5387e-08 

2.0628e-02 

1.9001e-04 

2.3729e-04 

1.0521e-07 

3.1587e-02 

5.3322e-04 

4.7385e-03 

4.1150e-07 

4.1780e-02 

1.3681e-03 

1.7325e-02 

1.5177e-06 

4.6091e-02 

3.1920e-03 

2.1546e-02 

5.2736e-06 

3.9750e-02 

6.7220e-03 

1.0376e-02 

1.7243e-05 

2.320  le-02 

1.2649e-02 

1.0386e-04 

5.2973e-05 

5.5480e-03 

2.0974e-02 

7.7152e-03 

1.5261e-04 

5.5122e-04 

3.0033e-02 

1.9581e-02 

4.1130e-04 

9.9999e+04 

3.5973e4)2 

1.2368e-02 

1.0343e-03 

6.2239e-06 

3.4086e-02 

9.9999e+04 

2.4176e-03 

2.1404e-05 

2.2758e-02 

3.9263e-03 

5.2290e-03 

6.8412e-05 

7.5627e-03 

8.0156e-03 

1.0410e-02 

2.2080e-04 

1.8794e-06 

1.4406e-02 

1.8933e-02 

5.5579e-04 

7.3714e-03 

2.2391e-02 

3.1154e-02 

1.4024e-03 

2.1635e-02 

2.9282e-02 

4.5768e-02 

3.2413e-03 

2.4438e4)2 

3.0765e-02 

5.8885e-02 

6.8168e-03 

1.0586e-02 

2.3719e-02 

9.9999e+04 

1.2930e-02 

7.6443e-06 

1.0624e-02 

4.8015e-08 

2.1853e-02 

9.9999eH)4 

7.5801e-04 

1.9878e-07 

3.2360e-02 

4.6896e-04 

3.1784e-03 

7.7401e-07 

4.0906e-02 

1.2230e-03 

1.5089e-02 

2.8336e-06 

4.2272e-02 

2.8952e-03 

2.1055e-02 

9.7418e-06 

3.2912e-02 

6.1775e-03 

1.1735e-02 

3.1403e-05 

1.5720e-02 

1.1761e-02 

4.9314e-04 

9.4740e-05 

1.7343e-03 

1.9704e-02 

5.7697e-03 

2.6692e-04 

2.9617e-03 

2.4630e-02 

1.8091e-02 

7.001  le-04 

1.8827e-02 

3.4346e-02 

1.3341e-02 
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Appendix  E 
Term  Symbols 

The  energy  state  of  an  atom  is  represented  by  its  term  symbol.  The  term  symbol 
for  the  atomic  transition  is  labeled  by  where:  N  is  the  orbit  number;  L  is  the  total 

orbital  angular  momentum;  S  is  the  total  spin  angular  momentum;  and  J  is  the  total 
angular  momentum  J=L+S.  The  left  superscript  (2S+1)  is  often  referred  to  as  the 
multiplicity  of  that  term,  e.g.  is  called  'doublet  P'.  The  right  subscript  (J)  is  the  level  of 

the  term,  e.g.  ^Pj^j  is  called  'doublet  P  three  halves'  with  values  of  J  =  L+S,...|L-S| . 
Likewise,  the  molecular  term  symbol  for  a  diatomic  is  given  by  The  values  of  L  and 
A  correspond  to 


L 

0 

1 

2 

3 

4 

Atomic  (L) 

S 

P 

D 

F 

G 

Molecular  (A) 

I 

n 

A 

r 

Molecular  iodine  belongs  to  Hund's  coupling  case  (c).  Figure  E.  1  shows  Hund's  case  (c) 
in  which  the  orbital  (L)  and  spin  (S)  are  mutually  coupled  to  form  a  resultant  J,.  In  case 
(c),  the  spin-orbit  coupling  is  so  strong  that  the  spin  and  orbital  momenta  couple  strongly 
at  every  opportunity.  The  resultant  J,  precesses  about  the  molecular  axis  with  fixed 
projection  0.h.  The  projection  Q  couples  with  the  rotational  angular  momentum  N  to 
form  the  total  angular  momentum  J.  Since  L  and  S  do  not  process  independently  about 
the  molecular  axis  in  case  (c)  molecules,  A  and  E  are  not  good  quantum  numbers. 
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Appendix  F 
Lineshapes 

While  the  peak  height  is  representative  of  the  intensity,  the  width  of  the  peak  is 
influenced  by  the  lineshape  broadening  mechanisms.  In  a  typical  absorption 
measurement,  the  three  most  important  mechanisms  which  contribute  to  broadening  the 
spectral  lineshape  are;  Doppler  broadening,  collision  broadening,  and  lifetime 
broadening.  If  the  pressure  of  the  absorbing  atoms  inside  the  sample  cell  is  kept  low 
(10-100  mTorr),  the  line  width  of  the  absorption  will  be  governed  by  the  lifetime  of  the 
excited  state  and  by  Doppler  broadening.  Doppler  broadening  is  caused  by  the  motion  of 
the  atoms  due  to  the  Doppler  effect,  which  is  an  apparent  change  in  radiation  when 
radiating  atoms  or  molecules  are  moving  relative  to  the  observer.  Spectral  lines  are 
broadened  according  to  the  Maxwell-Boltzmann  velocity  distribution  with  an  observed 
frequency  o  for  non-relativistic  velocities  (v«c)  of  ©=cOo[l+(Vj./c)].  The  atoms  in  an 
atomic  or  molecular  gas  will  have  in  addition  to  their  internal  energies.  Brownian  kinetic 
motion  through  space.  The  distribution  of  axial  velocities  in  a  gas  in  thermal  equilibrium 
will  be  Gaussian  and  have  the  form 

where  goCv)  is  the  Gaussian  linewidth,  M  is  the  atomic  mass,  k  is  the  Boltzmann 
constant,  c  is  the  speed  of  light,  and  Vg  is  line  center.  The  lineshape  of  a  spectral  feature 
does  not  occur  at  one  precise  frequency,  but  has  a  finite  linewidth.  The  width  of  the 
resonance  transition  is  often  expressed  in  terms  of  the  full  width  at  half  maximum  power 
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(FWHM).  In  the  case  of  a  Gaussian  lineshape,  the  linewidth  is  expressed  as  2a.  Also, 
the  Gaussian  distribution  is  applicable  to  the  errors  associated  with  many  types  of 
experimental  measurements.  For  this  type  of  distribution,  the  percentage  of  measured 
values  that  he  within  two  or  three  standard  deviations  is  95.4%  or  99.7%,  respectively. 

With  gas  pressures  greater  than  100  mTorr,  the  absorption  line  will  be  further 
broadened  due  to  collisions  with  other  atoms.  This  hne  broadening  feature  is  known  as 
Lorentzian  broadening.  Broadening  of  lines  can  also  arise  from  the  finite  collisional  or 
natural  lifetime  of  a  state.  Such  broadening  gives  rise  to  a  Lorentzian  lineshape  function 
due  to  the  effective  damping  of  the  classically  oscillating  dipole.  The  broadening  is 
homogeneous  since  each  particle  has  the  same  distribution  of  transition  frequencies.  The 
Lorentzian  lineshape  function  is  given  by 

where  is  the  Lorentzian  line  width  (FWHM). 

At  moderate  pressures,  the  lineshape  is  influenced  by  both  Doppler  and  collision 
broadening.  With  still  increasing  pressures  (>1  Torr),  a  convolution  between  Doppler 
velocity  distribution  and  first  order  collisional  relaxation  is  mathematically  described  by 
the  Voigt  function.  In  reality,  Gaussian  and  Lorentzian  lineshapes  are  a  convolution  of 
the  collision  and  Doppler  broadening,  but  the  influence  of  these  factors  are  such  that 
they  can  be  accurately  described  by  a  closed  mathematical  expression.  A  good 
approximation  of  the  Voigt  profile  is  assuming  that  each  velocity  group  in  the  Gaussian 
shaped  doppler  profile  is  broadened  to  the  same  extent  by  the  Lorentzian  profile.  The 
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combined  profile  is  intermediate  as  it  appears  Lorentzian  in  the  wings  and  Gaussian  near 
the  line  center.  The  Voigt  fimction  is  defined  as 


W(z)  =  if 


•00  expj-t^ 


z-t 


-dt 


with  the  customary  definitions,  z^-iy 


X  = 


Vln2  (u-oo) 
Yd 


y  = 


i/in^YL 

Yd 


where  and  are  the  collision  and  Doppler  broadened  widths,  respectively.  A  highly 
accurate  Voigt  function  algorithm  using  an  improved  Drayson's  method,  complete  with 
FORTRAN  source  code  has  been  published  by  Z.  Shippony  and  W.  G.  Read^ 
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